                   V. A.  C R O S S  R E F E R E N C E R  7.3
                       [2008 VA Standards & Conventions]
                  UCI: VISTA CPU: ROU    Jun 16, 2016@07:08:53

The BUILD file Data Dictionaries are being processed.

The option and function files are being processed.


Routines are being processed.
Routines: 15  Faux Routines: 0

ORALWORD  ORY4270   ORY42701  ORY42702  ORY42703  ORY42704  ORY42705  ORY42706  
ORY42707  ORY42708  ORY4271   ORY4272   ORY4273   ORY4274   ORY427ES  

--- CROSS REFERENCING ---

   Press return to continue:

























Compiled list of Errors and Warnings              Jun 16, 2016@07:08:53 page 1
No errors or warnings to report


--- Routine Detail   --- with REGULAR ROUTINE LISTING ---
   Press return to continue:










































ORALWORD * *  214 Lines,  10542 Bytes, Checksum: B89588397
                                                  Jun 16, 2016@07:08:53 page 2
              2218 bytes in comments
ORALWORD ; SLC/JMH - Utilities for Checking if an order can be ordered ; 5/10/07
           5:55am
         ;;3.0;ORDER ENTRY/RESULTS REPORTING;**243,427**;Dec 17, 1997;Build 242
         ;
ALLWORD(ORY,DFN,ORX,ORTYPE,PROV) --
          ;
         N OROI,ORYS,QOIEN,QPIEN,ORCLOZ,QOAA
         S OROI=0
         ;
         ;ORTYPE used to determine the type of data coming into the call
         ;ORYTPE="E" existing order, ORX equal the IEN from file 100 (used with
         ;copy,edit functionality)
         ;ORTYPE="Q" Quick Order, ORX equal the IEN from file 101.43
         ;ORTYPE="N" New order, ORX equal the IEN from file 101.41
         ;
         I ORTYPE="E" S OROI=$G(^OR(100,ORX,.1,1,0))
         I ORTYPE="Q" D
         .S QPIEN=$O(^ORD(101.41,"AB","OR GTX ORDERABLE ITEM","")) Q:QPIEN'>0
         .S QOIEN=$O(^ORD(101.41,ORX,6,"D",QPIEN,"")) Q:QOIEN'>0
         .S OROI=$G(^ORD(101.41,ORX,6,QOIEN,1))
         .S QOAA=$P($G(^ORD(101.41,ORX,5)),U,8)
         I ORTYPE="N" S OROI=ORX
         Q:OROI'>0
         S ORY=0
         ;checks if the orderable item (OROI) is a clozapine med
         ;  if not returns ORY=0
         S ORCLOZ=$$ISCLOZ(OROI),ORY=ORY_U_ORCLOZ,ORY(0)=U_ORCLOZ
         Q:'ORCLOZ
         N ORQUIT
         S ORQUIT=0
         I '$G(PROV) S PROV=DUZ
         I $G(PROV) D
         .I '$L($$DEA^XUSER(,PROV)) D
         ..S ORQUIT=1,ORY=1
         ..S ORQUIT=1,ORY=1
         ..S ORY(1)="*** You are not authorized to place Clozapine orders."
         ..S ORY(2)="You must have a DEA#.  Please contact your"
         ..S ORY(3)="CAC or IRM for more information. ***"
         .Q:ORQUIT
         .I '$D(^XUSEC("YSCL AUTHORIZED",PROV)) D
         ..S ORQUIT=1,ORY=1
         ..S ORY(1)="*** You are not authorized to place Clozapine orders."
         ..S ORY(2)="You must hold key YSCL AUTHORIZED.  Please contact your"
         ..S ORY(3)="CAC or IRM for more information on this key. ***"
         Q:ORQUIT
         ;  if is a cloz med , check if patient (DFN) can have a clozapine med
         S ORYS=$$CL^YSCLTST2(DFN)
         ;    if yes returns ORY=0
         I +ORYS>0 D BEFQUIT  Q
         ;    if no 
         ;      returns 
         ;    ORY=1
         ;    ORY(0)=CAPTION FOR DIALOG BOX
         ;    ORY(1-N)=MESSAGE TO DISPLAY
         S ORY=1_U_ORCLOZ,ORY(0)="Problem Ordering Clozapine Related Medication"
          _U_ORCLOZ
         ;patient not in clozapine patient program
         ;; START NCC REMEDIATION >> 427*RJS
         I +ORYS<0 D  Q
         .S ORY(1)="*** This patient is not registered in the clozapine treatmen
          t "
         .S ORY(2)="program or has been discontinued from the program. A new"
         .S ORY(3)="registration number must be assigned. If this is not an emer
          gency,"
         .S ORY(4)="contact the NCCC. For emergency registration during non-NCCC
           duty"
         .S ORY(5)="hours, a written order to the pharmacist can be used to proc
          ess a"
         .S ORY(6)="registration override. ***"
         ;problem with lab tests
         I +ORYS=0 D  Q
         .I $$OVERRIDE^YSCLTST2(DFN) S ORY=0_U_ORCLOZ,ORY(0)=U_ORCLOZ D BEFQUIT 
           Q  ;override allowed
         .I +$P(ORYS,"^",2),$P(ORYS,"^",4)<1000 D
         ..N COUNT S COUNT=0
         ..S COUNT=COUNT+1,ORY(COUNT)="*** This clozapine drug may not be dispen
          sed to the patient at this "
         ..S COUNT=COUNT+1,ORY(COUNT)="time based on the available lab tests rel
          ated to the clozapine "
         ..S COUNT=COUNT+1,ORY(COUNT)="treatment program. Please contact the NCC
          C to request an override in"
         ..S COUNT=COUNT+1,ORY(COUNT)="order to proceed with dispensing this dru
          g. ***"
         ..Q:'$L($P(ORYS,U,3))!('$L($P(ORYS,U,5)))
         ..S COUNT=COUNT+1,ORY(COUNT)="Related Lab Test(s)"
         ..S COUNT=COUNT+1,ORY(COUNT)="==================="
         ..;the lab values returned by Mental Health are given in 4 digit number
          s to be standard with 
         ..;reporting formats to the NCCC, we are dividing by 1000 to align it w
          ith the display of the
         ..;labs on the lab tab
         ..;S:$L($P(ORYS,U,3)) COUNT=COUNT+1,ORY(COUNT)=$P(ORYS,U,3)_":  "_($P(O
          RYS,U,2)/1000)_" K/cmm"
         ..;S:$L($P(ORYS,U,5)) COUNT=COUNT+1,ORY(COUNT)=$P(ORYS,U,5)_":  "_($P(O
          RYS,U,4)/1000)_" K/cmm"
         ..S:$L($P(ORYS,U,3)) COUNT=COUNT+1,ORY(COUNT)="WBC:  "_($P(ORYS,U,2)/10
          00)_" K/cmm"
         ..S:$L($P(ORYS,U,5)) COUNT=COUNT+1,ORY(COUNT)="ANC:  "_($P(ORYS,U,4)/10
          00)_" K/cmm"
         ..S COUNT=COUNT+1,ORY(COUNT)="Date/Time of last tests: "_$$DATE^ORU($P(
          ORYS,U,6))
         .I '+$P(ORYS,"^",2),+$P(ORYS,"^",4)>1500 D
         ..N COUNT S COUNT=0
         ..S COUNT=COUNT+1,ORY(COUNT)="*** Permission to dispense clozapine has 
          been denied based on the available"
         ..S COUNT=COUNT+1,ORY(COUNT)="lab tests related to the clozapine treatm
          ent program.***"
         ..S COUNT=COUNT+1,ORY(COUNT)=""
         ..S COUNT=COUNT+1,ORY(COUNT)="The latest lab test results drawn in the 
          past 7 days have ANC results but no"
         ..S COUNT=COUNT+1,ORY(COUNT)="matching WBC. Redo the lab tests or conta
          ct the NCCC for a National Override"
         ..S COUNT=COUNT+1,ORY(COUNT)="to dispense clozapine with no matching WB
          C results."
         ..Q:'$L($P(ORYS,U,3))!('$L($P(ORYS,U,5)))
         ..S COUNT=COUNT+1,ORY(COUNT)="Related Lab Test(s)"
         ..S COUNT=COUNT+1,ORY(COUNT)="==================="
         ..;the lab values returned by Mental Health are given in 4 digit number
          s to be standard with 
         ..;reporting formats to the NCCC, we are dividing by 1000 to align it w
          ith the display of the
         ..;labs on the lab tab
         ..;S:$L($P(ORYS,U,3)) COUNT=COUNT+1,ORY(COUNT)=$P(ORYS,U,3)_":  "_($P(O
          RYS,U,2)/1000)_" K/cmm"
         ..;S:$L($P(ORYS,U,5)) COUNT=COUNT+1,ORY(COUNT)=$P(ORYS,U,5)_":  "_($P(O
          RYS,U,4)/1000)_" K/cmm"
         ..S:$L($P(ORYS,U,3)) COUNT=COUNT+1,ORY(COUNT)="WBC:  "_($P(ORYS,U,2)/10
          00)_" K/cmm"
         ..S:$L($P(ORYS,U,5)) COUNT=COUNT+1,ORY(COUNT)="ANC:  "_($P(ORYS,U,4)/10
          00)_" K/cmm"
         ..S COUNT=COUNT+1,ORY(COUNT)="Date/Time of last tests: "_$$DATE^ORU($P(
          ORYS,U,6))
         .I '+$P(ORYS,"^",2),'+$P(ORYS,"^",4) D MSG Q
         .I '+$P(ORYS,"^",4),+$P(ORYS,"^",2) D MSG Q
         Q
MSG      ;
         N COUNT S COUNT=0
         S COUNT=COUNT+1,ORY(COUNT)="*** Permission to dispense clozapine has be
          en denied based on the"
         S COUNT=COUNT+1,ORY(COUNT)="available lab tests related to the clozapin
          e treatment program. ***"
         S COUNT=COUNT+1,ORY(COUNT)=""
         S COUNT=COUNT+1,ORY(COUNT)="For a National Override to dispense at the 
          patient's normal"
         S COUNT=COUNT+1,ORY(COUNT)="frequency, contact the NCCC."
         S COUNT=COUNT+1,ORY(COUNT)=""
         S COUNT=COUNT+1,ORY(COUNT)="A local emergency override can be approved 
          for"
         S COUNT=COUNT+1,ORY(COUNT)="(1) weather-related conditions, (2) mail or
          der delays of clozapine,"
         S COUNT=COUNT+1,ORY(COUNT)="or (3) inpatient going on leave."
         S COUNT=COUNT+1,ORY(COUNT)=""
         S COUNT=COUNT+1,ORY(COUNT)="For a Special Conditions Local Override, a 
          written order from the"
         S COUNT=COUNT+1,ORY(COUNT)="provider with documentation to the pharmaci
          st is required to dispense"
         S COUNT=COUNT+1,ORY(COUNT)="a one-time 4-day supply."
         Q:'$L($P(ORYS,U,3))!('$L($P(ORYS,U,5)))
         S COUNT=COUNT+1,ORY(COUNT)="Related Lab Test(s)"
         S COUNT=COUNT+1,ORY(COUNT)="==================="
         S:$L($P(ORYS,U,3)) COUNT=COUNT+1,ORY(COUNT)="WBC:  "_($P(ORYS,U,2)/1000
          )_" K/cmm"
         S:$L($P(ORYS,U,5)) COUNT=COUNT+1,ORY(COUNT)="ANC:  "_($P(ORYS,U,4)/1000
          )_" K/cmm"
         S COUNT=COUNT+1,ORY(COUNT)="Date/Time of last tests: "_$$DATE^ORU($P(OR
          YS,U,6))
         Q
         ;; END NCC REMEDIATION << 427*RJS
BEFQUIT  ;
         Q:'$G(QOAA)
         N QODS,QORF,ORMAX,ORCLPAT
         S QODS=$O(^ORD(101.41,"AB","OR GTX DAYS SUPPLY","")) Q:QODS'>0
         S QODS=$O(^ORD(101.41,ORX,6,"D",QODS,"")) Q:QOIEN'>0
         S QODS=$G(^ORD(101.41,ORX,6,QODS,1))
         S QORF=$O(^ORD(101.41,"AB","OR GTX REFILLS","")) Q:QORF'>0
         S QORF=$O(^ORD(101.41,ORX,6,"D",QORF,"")) Q:QOIEN'>0
         S QORF=$G(^ORD(101.41,ORX,6,QORF,1))
         S QORF=QORF+1
         S ORCLPAT=$P(ORYS,U,7)
         S ORMAX=$S(ORYS="M":28,ORYS="B":14,ORYS="W":7,1:90)
         I QORF*QODS>ORMAX D
         .K ORY
         .S ORY=1_U_ORCLOZ,ORY(0)="Problem Ordering Clozapine Related Medication
          "_U_ORCLOZ
         .S ORY(1)="*** This patient is only allowed an order with a maximum Day
          s Supply of "_ORMAX_"."
         .S ORY(2)="This includes the amounts added by any refills entered in wi
          th the order also."
         Q
ISCLOZ(OROI) --
          ;
         N ORPSOI,ORPSDRUG
         S ORPSOI=$P(^ORD(101.43,OROI,0),U,2)
         I $P(ORPSOI,";",2)'="99PSP" Q 0
         K ^TMP($J,"ORCLOZ")
         D ASP^PSS50(+ORPSOI,,,"ORCLOZ")
         S ORPSDRUG=$O(^TMP($J,"ORCLOZ",0))
         I 'ORPSDRUG K ^TMP($J,"ORCLOZ") Q 0
         K ^TMP($J,"ORCLOZ")
         D CLOZ^PSS50(ORPSDRUG,,,,,"ORCLOZ")
         I $G(^TMP($J,"ORCLOZ",ORPSDRUG,"CLOZ",0))>0 K ^TMP($J,"ORCLOZ") Q 1
         K ^TMP($J,"ORCLOZ")
         Q 0
ALLWRN(ORY,ORN,REFILLS) --
          ;allow order to be renewed
         ;ORN is the order number
         ;REFILLS is the number of refills to be included with the renewed order
         N ORDS,ORQT,ORUPD,ORSCH,ORDUR,ORDFN,ORDRG,OROI,ORMAXDS,ORMAXQT,ORCLOZ,O
          RREF,ORMAXREF
         ;default return 1 (ORY=1 means allow renew)
         S ORY=1
         ;get DFN (ORDFN)
         S ORDFN=+$P(^OR(100,ORN,0),U,2)
         Q:'ORDFN
         ;get if order is a clozapine order (ORCLOZ)
         S OROI=$G(^OR(100,ORN,.1,1,0)) Q:'OROI
         S ORCLOZ=$$ISCLOZ(OROI)
         ;quit if order is not clozapine
         I 'ORCLOZ Q
         ;get schedule from order (ORSCH)
         S ORSCH=$G(^OR(100,ORN,4.5,$O(^OR(100,ORN,4.5,"ID","SCHEDULE",0)),1))
         ;get units per dose from order (ORUPD)
         S ORSCH=$G(^OR(100,ORN,4.5,$O(^OR(100,ORN,4.5,"ID","DOSE",0)),1))
         S ORSCH=$P(ORSCH,"&",3)
         ;get duration from order (ORDUR)
         I '$O(^OR(100,ORN,4.5,"ID","DURATION",0)) S ORDUR="~^"
         E  S ORSCH=$G(^OR(100,ORN,4.5,$O(^OR(100,ORN,4.5,"ID","DURATION",0)),1)
          )
         ;get days supply from order (ORDS)
         S ORSCH=$G(^OR(100,ORN,4.5,$O(^OR(100,ORN,4.5,"ID","SUPPLY",0)),1))
         ;get drug (ptr50) from order (ORDRG)
         S ORSCH=$G(^OR(100,ORN,4.5,$O(^OR(100,ORN,4.5,"ID","DRUG",0)),1))
         ;get refills from order (ORREF)
         S ORSCH=$G(^OR(100,ORN,4.5,$O(^OR(100,ORN,4.5,"ID","REFILLS",0)),1))
         ;get quantity from order (ORQT)
         S ORSCH=$G(^OR(100,ORN,4.5,$O(^OR(100,ORN,4.5,"ID","QTY",0)),1))
         ;get max days supply for order (ORMAXDS)
         S ORMAXDS=$$DEFSPLY^ORWDPS1(ORDFN)
         ;if ds from order is > max ds return 0 (ORY=0)
         I ORDS>ORMAXDS D  Q
         .S ORY=0
         .S ORY(0)="Problem Renewing Clozapine Related Medication"_U_ORCLOZ
         .S ORY(1)="The Days Supply set for this order is greater than the Max D
          ays Supply"
         .S ORY(2)="    allowed for this patient."
         ;get max quantity for order (ORMAXQT)
         D DAY2QTY^ORWDPS2(.ORMAXQT,ORDS,ORUPD,ORSCH,ORDUR,ORDFN,ORDRG)
         ;if qt from order is > max qt return 0 (ORY=0)
         I ORQT>ORMAXQT D  Q
         .S ORY=0
         .S ORY(0)="Problem Renewing Clozapine Related Medication"_U_ORCLOZ
         .S ORY(1)="The Quantity set for this order is greater than the Max Quan
          tity"
         .S ORY(2)="    allowed for this patient."
         ;get max refills for order (ORMAXREF)
         D MAXREF^ORWDPS2(.ORMAXREF,ORDFN,ORDRG,ORDS,OROI,1)
         ;if refill from order is > max refills return 0 (ORY=0)
         I ORREF>ORMAXREF D  Q
         .S ORY=0
         .S ORY(0)="Problem Renewing Clozapine Related Medication"_U_ORCLOZ
         .S ORY(1)="The Refills field set for this order is greater than the Ref
          ills"
         .S ORY(2)="    allowed for this patient with the order having a Days Su
          pply "
         .S ORY(3)="    of "_ORDS_"."
         Q

*****   INDEX OF ORALWORD   *****


Local Variables      Line Occurrences   ( >> not killed explicitly)
                                        ( * Changed  ! Killed  ~ Newed)
   COUNT        ALLWORD+63~*,ALLWORD+64*,ALLWORD+65*,ALLWORD+66*,ALLWORD+67*
                ALLWORD+69*,ALLWORD+70*,ALLWORD+76*,ALLWORD+77*,ALLWORD+78*
                ALLWORD+80~*,ALLWORD+81*,ALLWORD+82*,ALLWORD+83*,ALLWORD+84*
                ALLWORD+85*,ALLWORD+86*,ALLWORD+88*,ALLWORD+89*,ALLWORD+95*
                ALLWORD+96*,ALLWORD+97*,MSG+1~*,MSG+2*,MSG+3*,MSG+4*,MSG+5*
                MSG+6*,MSG+7*,MSG+8*,MSG+9*,MSG+10*,MSG+11*,MSG+12*,MSG+13*
                MSG+14*,MSG+16*,MSG+17*,MSG+18*,MSG+19*,MSG+20*
   DFN          ALLWORD~,ALLWORD+41,ALLWORD+61
   DUZ          ALLWORD+25
   ORCLOZ       ALLWORD+1~,ALLWORD+21*,ALLWORD+22,ALLWORD+49,ALLWORD+61
                BEFQUIT+14,ALLWRN+3~,ALLWRN+11*,ALLWRN+13,ALLWRN+35,ALLWRN+43
                ALLWRN+51
   ORCLPAT      BEFQUIT+2~,BEFQUIT+10*
   ORDFN        ALLWRN+3~,ALLWRN+7*,ALLWRN+8,ALLWRN+31,ALLWRN+39,ALLWRN+47
   ORDRG        ALLWRN+3~,ALLWRN+39,ALLWRN+47
   ORDS         ALLWRN+3~,ALLWRN+33,ALLWRN+39,ALLWRN+47,ALLWRN+54
   ORDUR        ALLWRN+3~,ALLWRN+20*,ALLWRN+39
   ORMAX        BEFQUIT+2~,BEFQUIT+11*,BEFQUIT+12,BEFQUIT+15
   ORMAXDS      ALLWRN+3~,ALLWRN+31*,ALLWRN+33
   ORMAXQT      ALLWRN+3~,ALLWRN+39,ALLWRN+41
   ORMAXREF     ALLWRN+3~,ALLWRN+47,ALLWRN+49
   ORN          ALLWRN~,ALLWRN+7,ALLWRN+10,ALLWRN+15,ALLWRN+17,ALLWRN+20
                ALLWRN+21,ALLWRN+23,ALLWRN+25,ALLWRN+27,ALLWRN+29
   OROI         ALLWORD+1~,ALLWORD+2*,ALLWORD+10*,ALLWORD+14*,ALLWORD+16*
                ALLWORD+17,ALLWORD+21,ISCLOZ~,ISCLOZ+2,ALLWRN+3~,ALLWRN+10*
                ALLWRN+11,ALLWRN+47
   ORPSDRUG     ISCLOZ+1~,ISCLOZ+6*,ISCLOZ+7,ISCLOZ+9,ISCLOZ+10
   ORPSOI       ISCLOZ+1~,ISCLOZ+2*,ISCLOZ+3,ISCLOZ+5
   ORQT         ALLWRN+3~,ALLWRN+41
   ORQUIT       ALLWORD+23~,ALLWORD+24*,ALLWORD+28*,ALLWORD+29*,ALLWORD+33
                ALLWORD+35*,ALLWORD+39
   ORREF        ALLWRN+3~,ALLWRN+49
   ORSCH        ALLWRN+3~,ALLWRN+15*,ALLWRN+17*,ALLWRN+18*,ALLWRN+21*
                ALLWRN+23*,ALLWRN+25*,ALLWRN+27*,ALLWRN+29*,ALLWRN+39
   ORTYPE       ALLWORD~,ALLWORD+10,ALLWORD+11,ALLWORD+16
   ORUPD        ALLWRN+3~,ALLWRN+39
   ORX          ALLWORD~,ALLWORD+10,ALLWORD+13,ALLWORD+14,ALLWORD+15,ALLWORD+16
                BEFQUIT+4,BEFQUIT+5,BEFQUIT+7,BEFQUIT+8
   ORY          ALLWORD~,ALLWORD+18*,ALLWORD+21*,ALLWORD+28*,ALLWORD+29*
                ALLWORD+35*,ALLWORD+49*,ALLWORD+61*,BEFQUIT+13!,BEFQUIT+14*
                ALLWRN~,ALLWRN+5*,ALLWRN+34*,ALLWRN+42*,ALLWRN+50*
   ORY(         ALLWORD+64*,ALLWORD+65*,ALLWORD+66*,ALLWORD+67*,ALLWORD+69*
                ALLWORD+70*,ALLWORD+76*,ALLWORD+77*,ALLWORD+78*,ALLWORD+81*
                ALLWORD+82*,ALLWORD+83*,ALLWORD+84*,ALLWORD+85*,ALLWORD+86*
                ALLWORD+88*,ALLWORD+89*,ALLWORD+95*,ALLWORD+96*,ALLWORD+97*
                MSG+2*,MSG+3*,MSG+4*,MSG+5*,MSG+6*,MSG+7*,MSG+8*,MSG+9*,MSG+10*
                MSG+11*,MSG+12*,MSG+13*,MSG+14*,MSG+16*,MSG+17*,MSG+18*,MSG+19*
                MSG+20*
   ORY(0        ALLWORD+21*,ALLWORD+49*,ALLWORD+61*,BEFQUIT+14*,ALLWRN+35*
                ALLWRN+43*,ALLWRN+51*
   ORY(1        ALLWORD+30*,ALLWORD+36*,ALLWORD+53*,BEFQUIT+15*,ALLWRN+36*
                ALLWRN+44*,ALLWRN+52*
   ORY(2        ALLWORD+31*,ALLWORD+37*,ALLWORD+54*,BEFQUIT+16*,ALLWRN+37*
                ALLWRN+45*,ALLWRN+53*
   ORY(3        ALLWORD+32*,ALLWORD+38*,ALLWORD+55*,ALLWRN+54*
   ORY(4        ALLWORD+56*
   ORY(5        ALLWORD+57*
   ORY(6        ALLWORD+58*
   ORYS         ALLWORD+1~,ALLWORD+41*,ALLWORD+43,ALLWORD+52,ALLWORD+60
                ALLWORD+62,ALLWORD+68,ALLWORD+76,ALLWORD+77,ALLWORD+78
                ALLWORD+79,ALLWORD+87,ALLWORD+95,ALLWORD+96,ALLWORD+97
                ALLWORD+98,ALLWORD+99,MSG+15,MSG+18,MSG+19,MSG+20,BEFQUIT+10
                BEFQUIT+11
   PROV         ALLWORD~,ALLWORD+25*,ALLWORD+26,ALLWORD+27,ALLWORD+34
   QOAA         ALLWORD+1~,ALLWORD+15*,BEFQUIT+1
   QODS         BEFQUIT+2~,BEFQUIT+3*,BEFQUIT+4*,BEFQUIT+5*,BEFQUIT+12
   QOIEN        ALLWORD+1~,ALLWORD+13*,ALLWORD+14,BEFQUIT+4,BEFQUIT+7
   QORF         BEFQUIT+2~,BEFQUIT+6*,BEFQUIT+7*,BEFQUIT+8*,BEFQUIT+9*
                BEFQUIT+12
   QPIEN        ALLWORD+1~,ALLWORD+12*,ALLWORD+13
   REFILLS      ALLWRN~
   U            ALLWORD+15,ALLWORD+21,ALLWORD+49,ALLWORD+61,ALLWORD+68
                ALLWORD+76,ALLWORD+77,ALLWORD+78,ALLWORD+87,ALLWORD+95
                ALLWORD+96,ALLWORD+97,MSG+15,MSG+18,MSG+19,MSG+20,BEFQUIT+10
                BEFQUIT+14,ISCLOZ+2,ALLWRN+7,ALLWRN+35,ALLWRN+43,ALLWRN+51

Global Variables  ( * Changed  ! Killed)
   ^OR(100             ALLWORD+10,ALLWRN+7,ALLWRN+10,ALLWRN+15,ALLWRN+17
                       ALLWRN+20,ALLWRN+21,ALLWRN+23,ALLWRN+25,ALLWRN+27
                       ALLWRN+29
   ^ORD(101.41         ALLWORD+12,ALLWORD+13,ALLWORD+14,ALLWORD+15,BEFQUIT+3
                       BEFQUIT+4,BEFQUIT+5,BEFQUIT+6,BEFQUIT+7,BEFQUIT+8
   ^ORD(101.43         ISCLOZ+2
   ^TMP($J             ISCLOZ+4!,ISCLOZ+6,ISCLOZ+7!,ISCLOZ+8!,ISCLOZ+10!
                       ISCLOZ+11!
   ^XUSEC("YSCL AUTHORIZED"
                       ALLWORD+34

Naked Globals
   NONE

Cache Objects
   NONE

Marked Items
   NONE

Label References
   $$ISCLOZ     ALLWORD+21,ALLWRN+11
   BEFQUIT      ALLWORD+43,ALLWORD+61
   MSG          ALLWORD+98,ALLWORD+99

External References
   $$DATE^ORU          ALLWORD+78,ALLWORD+97,MSG+20
   $$DEFSPLY^ORWDPS1   ALLWRN+31
   DAY2QTY^ORWDPS2     ALLWRN+39
   MAXREF^ORWDPS2      ALLWRN+47
   ASP^PSS50           ISCLOZ+5
   CLOZ^PSS50          ISCLOZ+9
   $$DEA^XUSER         ALLWORD+27
   $$CL^YSCLTST2       ALLWORD+41
   $$OVERRIDE^YSCLTST2 ALLWORD+61

*****   END   *****

   Press return to continue:

























ORY4270  * *  99 Lines,  3299 Bytes, Checksum: B15569729
                                                  Jun 16, 2016@07:08:53 page 3
              145 bytes in comments
ORY4270  ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install
           of OR*3*427) ;MAY 10,2016 at 13:31
         ;;3.0;ORDER ENTRY/RESULTS REPORTING;**427**;Dec 17,1997;Build 242
         ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
         ;
S        ;
         ;
         Q
         ;
WARN(RTN,MSG,LINES) --
          ;
         ;
         Q:$G(OCXAUTO)
         ;
         N DASH,LINE,NLINE,PLINE
         ;
         S DASH="",$P(DASH,"-",(55-$L(MSG)-2))="-"
         W !!,"--------------",MSG,DASH
         ;
         W !,RTN,?10,"[NCCLAB1.AAC.DNS   ] -> [",$$NETNAME^OCXSEND,"] Line"
         ;
         I $O(LINES($O(LINES(0)))) W "s: "
         E  W ": "
         ;
         S LINE=0 F  S LINE=$O(LINES(LINE)) Q:'LINE  D
         .W:($X>60) !,?40
         .S NLINE=LINE F  S PLINE=NLINE,NLINE=$O(LINES(NLINE)) Q:(NLINE-PLINE-1)
         .I (PLINE=LINE) W " ",LINE
         .E  W " ",LINE,"-",PLINE S LINE=PLINE
         ;
         W ! Q
         ;
TEXT(RTN,LINE) --
          ;
         ;
         N TEXT X "S TEXT=$T(+"_(+LINE)_"^"_RTN_")" Q TEXT
         ;
HEADER   ;
         ;
         W !," Created: MAY 10,2016 at 13:31  at  NCCLAB1.AAC.DNS   "
         W !," Current Date: ",$$NOW,"  at  ",$$NETNAME^OCXSEND,!!
         S LASTFILE=0 K ^TMP("OCXRULE",$J)
         S ^TMP("OCXRULE",$J)=($P($H,",",2)+($H*86400)+(1*60*60))_" <- ^TMP ENTR
          Y EXPIRATION DATE FOR ^OCXOPURG"
         Q
         ;
GETFILE(FILE,RECNAME,ARRAY) --
          ;
         ;
         N CHECK,GLNEXT,GLREF,LINES,REC,DD,FLD
         S REC=$$LOOKUP(FILE,RECNAME)
         I 'REC W !!,$$FILENAME^OCXSENDD(FILE),": ",RECNAME Q 0
         I (REC=-1) W !!,$$FILENAME^OCXSENDD(FILE),": ",RECNAME,"  duplicate loc
          al entries.",! Q 0
         I (REC=-2) W !!,$$FILENAME^OCXSENDD(FILE)," (",FILE,") local file not f
          ound." W ! Q:$$PAUSE -10 Q REC
         I (REC<0) W !!,$$FILENAME^OCXSENDD(FILE),": ",RECNAME,"  unknown lookup
           error." W ! Q:$$PAUSE -10 Q REC
         I (REC>0) D
         .S CHECK=0,LINES=0
         .D GETREC($$FILE^OCXSENDD(FILE,"GLOBAL NAME"),"ARRAY(",REC,.ARRAY)
         .S GLREF="ARRAY" F  S GLREF=$Q(@GLREF) Q:'$L(GLREF)  Q:'($E(GLREF,1,6)=
          "ARRAY(")  K:'$L(@GLREF) @GLREF
         ;
         Q REC
         ;
LKUPARRY(DD,KEY,ARRAY) --
          ;
         ;
         N D0 S D0=0 F  S D0=$O(ARRAY(DD,D0)) Q:'D0  Q:($G(ARRAY(DD,D0,.01,"E"))
          =KEY)
         Q D0
         ;
LOOKUP(FILE,KEY) --
          ;
         I $O(^TMP("OCXRULE",$J,"B",FILE,KEY,0)) Q 0
         N RECNAM,REC,D0,CNT,SHORT S (REC,CNT)=0
         S GL=$$FILE^OCXSENDD(FILE,"GLOBAL NAME") Q:'$L(GL) -2 S GL=$E(GL,1,$L(G
          L)-1)_")"
         S SHORT=$E(KEY,1,30),RECNAM=SHORT D  F  S RECNAM=$O(@GL@("B",RECNAM)) Q
          :'$L(RECNAM)  Q:'($E(RECNAM,1,$L(SHORT))=SHORT)  D
         .S D0=0 F  S D0=$O(@GL@("B",RECNAM,D0)) Q:'D0  I ($P($G(@GL@(D0,0)),U,1
          )=KEY) S CNT=CNT+1,REC=D0_U_RECNAME
         Q:(CNT>1) -1
         S:$L($P(REC,U,2)) ^TMP("OCXRULE",$J,"A",FILE,$P(REC,U,2))=""
         Q +REC
         ;
GETREC(GL,PATH,D0,REM) --
          ;
         ;
         Q:'($P($G(@(GL_"0)")),U,2))
         N S1,DATA,DD
         S DATA="" D DIQ(GL,D0,.DATA)
         S DD=$O(DATA(0)) Q:'DD
         ;
         I $L($$FILE^OCXSENDD(DD,"NAME")) S PATH=PATH_""""_DD_":"_D0_""""
         I '$L($$FILE^OCXSENDD(DD,"NAME")) S PATH=PATH_","""_DD_":"_D0_""""
         M @(PATH_")")=DATA(DD,D0)
         ;
         S S1="" F  S S1=$O(@(GL_D0_","_$$SUB(S1)_")")) Q:'$L(S1)  I ($D(@(GL_D0
          _","_$$SUB(S1)_")"))>3) D
         .N D1,GLREF S GLREF=GL_D0_","_$$SUB(S1)_","
         .S D1=0 F  S D1=$O(@(GLREF_D1_")")) Q:'D1  D GETREC(GLREF,PATH,D1,.REM)
         ;
         Q
         ;
SUB(X)   Q:'(X=+X) """"_X_"""" Q X
         ;
DIQ(DIC,DA,OCXARY) --
          ;
         N DR,DIQ S DR=".01:99999",DIQ="OCXARY(",DIQ(0)="EN" D EN^DIQ1
         Q
         ;
PAUSE()  W "  Press Enter " R X:DTIME W ! Q (X[U)
         ;
NOW()    N X,Y,%DT S X="N",%DT="T" D ^%DT S Y=$$DATE^OCXSENDD(Y) S:(Y["@") Y=$P(
          Y,"@",1)_" at "_$P(Y,"@",2) Q Y
         ;

*****   INDEX OF ORY4270   *****


Local Variables      Line Occurrences   ( >> not killed explicitly)
                                        ( * Changed  ! Killed  ~ Newed)
   %DT          NOW~*
   ARRAY        GETFILE~,GETFILE+10,LKUPARRY~
   ARRAY(       LKUPARRY+2
   CHECK        GETFILE+2~,GETFILE+9*
   CNT          LOOKUP+2~*,LOOKUP+5*,LOOKUP+6
   D0           LKUPARRY+2~*,LKUPARRY+3,LOOKUP+2~,LOOKUP+5*,GETREC~,GETREC+4
                GETREC+7,GETREC+8,GETREC+9,GETREC+11,GETREC+12
   D1           GETREC+12~,GETREC+13*
   DA           DIQ~
   DASH         WARN+4~,WARN+6*,WARN+7
   DATA         GETREC+3~,GETREC+4*
   DATA(        GETREC+9
   DATA(0       GETREC+5
   DD           GETFILE+2~,LKUPARRY~,LKUPARRY+2,GETREC+3~,GETREC+5*,GETREC+7
                GETREC+8,GETREC+9
   DIC          DIQ~
   DIQ          DIQ+1~*
   DIQ(0        DIQ+1*
   DR           DIQ+1~*
   DTIME        PAUSE
   FILE         GETFILE~,GETFILE+3,GETFILE+4,GETFILE+5,GETFILE+6,GETFILE+7
                GETFILE+10,LOOKUP~,LOOKUP+1,LOOKUP+3,LOOKUP+7
   FLD          GETFILE+2~
   GL           LOOKUP+3*,LOOKUP+4,LOOKUP+5,GETREC~,GETREC+2,GETREC+4,GETREC+11
                GETREC+12
   GLNEXT       GETFILE+2~
   GLREF        GETFILE+2~,GETFILE+11*,GETREC+12~*,GETREC+13
   KEY          LKUPARRY~,LKUPARRY+2,LOOKUP~,LOOKUP+1,LOOKUP+4,LOOKUP+5
>> LASTFILE     HEADER+4*
   LINE         WARN+4~,WARN+14*,WARN+16,WARN+17,WARN+18*,TEXT~,TEXT+2
   LINES        WARN~,GETFILE+2~,GETFILE+9*
   LINES(       WARN+11,WARN+14,WARN+16
   LINES(0      WARN+11
   MSG          WARN~,WARN+6,WARN+7
   NLINE        WARN+4~,WARN+16*
   OCXARY       DIQ~
>> OCXAUTO      WARN+2
   PATH         GETREC~,GETREC+7*,GETREC+8*,GETREC+9,GETREC+13
   PLINE        WARN+4~,WARN+16*,WARN+17,WARN+18
   REC          GETFILE+2~,GETFILE+3*,GETFILE+4,GETFILE+5,GETFILE+6,GETFILE+7
                GETFILE+8,GETFILE+10,GETFILE+13,LOOKUP+2~*,LOOKUP+5*,LOOKUP+7
                LOOKUP+8
   RECNAM       LOOKUP+2~,LOOKUP+4*,LOOKUP+5
   RECNAME      GETFILE~,GETFILE+3,GETFILE+4,GETFILE+5,GETFILE+7,LOOKUP+5
   REM          GETREC~,GETREC+13
   RTN          WARN~,WARN+9,TEXT~,TEXT+2
   S1           GETREC+3~,GETREC+11*,GETREC+12
   SHORT        LOOKUP+2~,LOOKUP+4*
   TEXT         TEXT+2~
   U            LOOKUP+5,LOOKUP+7,GETREC+2,PAUSE
   X            SUB~,PAUSE*,NOW~*
   Y            NOW~*

Global Variables  ( * Changed  ! Killed)
   ^TMP("OCXRULE"      HEADER+4!,HEADER+5*,LOOKUP+1,LOOKUP+7*

Naked Globals
   NONE

Cache Objects
   NONE

Marked Items
   NONE

Label References
   $$LOOKUP     GETFILE+3
   $$NOW        HEADER+3
   $$PAUSE      GETFILE+6,GETFILE+7
   $$SUB        GETREC+11,GETREC+12
   DIQ          GETREC+4
   GETREC       GETFILE+10,GETREC+13

External References
   ^%DT                NOW
   EN^DIQ1             DIQ+1
   $$NETNAME^OCXSEND   WARN+9,HEADER+3
   $$DATE^OCXSENDD     NOW
   $$FILE^OCXSENDD     GETFILE+10,LOOKUP+3,GETREC+7,GETREC+8
   $$FILENAME^OCXSENDD GETFILE+4,GETFILE+5,GETFILE+6,GETFILE+7

*****   END   *****

   Press return to continue:

























ORY42701 * *  283 Lines,  7824 Bytes, Checksum: B71551106
                                                  Jun 16, 2016@07:08:53 page 4
              120 bytes in comments
ORY42701 ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install
           of OR*3*427) ;MAY 10,2016 at 13:31
         ;;3.0;ORDER ENTRY/RESULTS REPORTING;**427**;Dec 17,1997;Build 242
         ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
         ;
S        ;
         ;
         D DOT^ORY427ES
         ;
         ;
         K REMOTE,LOCAL,OPCODE,REF
         F LINE=1:1:500 S TEXT=$P($T(DATA+LINE),";",2,999) Q:TEXT  I $L(TEXT) D 
           Q:QUIT
         .S ^TMP("OCXRULE",$J,$O(^TMP("OCXRULE",$J,"A"),-1)+1)=TEXT
         ;
         G ^ORY42702
         ;
         Q
         ;
DATA     ;
         ;
         ;;ROOT^OCXS(860.2,0)^ORDER CHECK RULE^860.2I
         ;;ROOT^OCXS(860.3,0)^ORDER CHECK ELEMENT^860.3
         ;;ROOT^OCXS(860.4,0)^ORDER CHECK DATA FIELD^860.4I
         ;;ROOT^OCXS(860.5,0)^ORDER CHECK DATA SOURCE^860.5
         ;;ROOT^OCXS(860.6,0)^ORDER CHECK DATA CONTEXT^860.6
         ;;ROOT^OCXS(860.8,0)^ORDER CHECK COMPILER FUNCTIONS^860.8
         ;;ROOT^OCXS(860.9,0)^ORDER CHECK NATIONAL TERM^860.9
         ;;ROOT^OCXS(863,0)^OCX MDD CLASS^863
         ;;ROOT^OCXS(863.1,0)^OCX MDD APPLICATION^863.1
         ;;ROOT^OCXS(863.2,0)^OCX MDD SUBJECT^863.2
         ;;ROOT^OCXS(863.3,0)^OCX MDD LINK^863.3I
         ;;ROOT^OCXS(863.4,0)^OCX MDD ATTRIBUTE^863.4
         ;;ROOT^OCXS(863.5,0)^OCX MDD VALUES^863.5
         ;;ROOT^OCXS(863.6,0)^OCX MDD METHOD^863.6
         ;;ROOT^OCXS(863.7,0)^OCX MDD PUBLIC FUNCTION^863.7
         ;;ROOT^OCXS(863.8,0)^OCX MDD PARAMETER^863.8
         ;;ROOT^OCXS(863.9,0)^OCX MDD CONDITION/FUNCTION^863.9I
         ;;ROOT^OCXS(864,0)^OCX MDD SITE PREFERENCES^864P
         ;;ROOT^OCXS(864.1,0)^OCX MDD DATATYPE^864.1
         ;;ROOT^OCXD(860.1,0)^ORDER CHECK PATIENT ACTIVE DATA^860.1P
         ;;ROOT^OCXD(860.7,0)^ORDER CHECK PATIENT RULE EVENT^860.7P
         ;;ROOT^OCXD(861,0)^ORDER CHECK RAW DATA LOG^861
         ;;SOF^863.8  OCX MDD PARAMETER
         ;;KEY^863.8:^COMPARISON VALUE
         ;;R^"863.8:",.01,"E"
         ;;D^COMPARISON VALUE
         ;;R^"863.8:",.02,"E"
         ;;D^CVAL
         ;;R^"863.8:",1,1
         ;;D^ 
         ;;R^"863.8:",1,2
         ;;D^   This is a value to be compared with PRIMARY DATA FIELD
         ;;R^"863.8:",1,3
         ;;D^ in a truth conditional.
         ;;R^"863.8:",1,4
         ;;D^ 
         ;;EOR^
         ;;KEY^863.8:^DATA TYPE
         ;;R^"863.8:",.01,"E"
         ;;D^DATA TYPE
         ;;R^"863.8:",.02,"E"
         ;;D^DATA TYPE
         ;;R^"863.8:",1,1
         ;;D^An MDD data type; i.e., an entry in the OCX MDD DATA TYPE file.
         ;;R^"863.8:","863.84:6",.01,"E"
         ;;D^QUERY
         ;;R^"863.8:","863.84:6",1,"E"
         ;;D^Enter the datatype
         ;;R^"863.8:","863.84:7",.01,"E"
         ;;D^DIC
         ;;R^"863.8:","863.84:7",1,"E"
         ;;D^864.1
         ;;R^"863.8:","863.84:8",.01,"E"
         ;;D^DATA TYPE
         ;;R^"863.8:","863.84:8",1,"E"
         ;;D^POINTER TO A FILEMAN FILE
         ;;R^"863.8:","863.84:9",.01,"E"
         ;;D^DIC LOOKUP INDEX STRING
         ;;R^"863.8:","863.84:9",1,"E"
         ;;D^B^C
         ;;EOR^
         ;;KEY^863.8:^DIC
         ;;R^"863.8:",.01,"E"
         ;;D^DIC
         ;;R^"863.8:",.02,"E"
         ;;D^DIC
         ;;R^"863.8:",1,1
         ;;D^An open reference used to specify the file in a DIC lookup
         ;;R^"863.8:","863.84:1",.01,"E"
         ;;D^DATA TYPE
         ;;R^"863.8:","863.84:1",1,"E"
         ;;D^POINTER TO A FILEMAN FILE
         ;;R^"863.8:","863.84:2",.01,"E"
         ;;D^DIC
         ;;R^"863.8:","863.84:2",1,"E"
         ;;D^1
         ;;R^"863.8:","863.84:3",.01,"E"
         ;;D^QUERY
         ;;R^"863.8:","863.84:3",1,"E"
         ;;D^Enter the name of the file you are pointing to
         ;;EOR^
         ;;KEY^863.8:^DIC LOOKUP INDEX STRING
         ;;R^"863.8:",.01,"E"
         ;;D^DIC LOOKUP INDEX STRING
         ;;R^"863.8:",.02,"E"
         ;;D^DICIX
         ;;R^"863.8:",1,1
         ;;D^Contains the names of indices to be used in a DIC lookup in a comma
         ;;R^"863.8:",1,2
         ;;D^delimited string.
         ;;R^"863.8:","863.84:1",.01,"E"
         ;;D^DATA TYPE
         ;;R^"863.8:","863.84:1",1,"E"
         ;;D^FREE TEXT
         ;;R^"863.8:","863.84:2",.01,"E"
         ;;D^QUERY
         ;;R^"863.8:","863.84:2",1,"E"
         ;;D^Enter a DIC lookup index string
         ;;R^"863.8:","863.84:3",.01,"E"
         ;;D^HELP MESSAGE
         ;;R^"863.8:","863.84:3",1,"E"
         ;;D^This is an '^' delimited string which contains the names of indices
           which are to be used in a DIC lookup; e.g., B^C^DOB.
         ;;EOR^
         ;;KEY^863.8:^FILE
         ;;R^"863.8:",.01,"E"
         ;;D^FILE
         ;;R^"863.8:",.02,"E"
         ;;D^FILE
         ;;R^"863.8:",1,1
         ;;D^The internal entry number of a file.
         ;;R^"863.8:","863.84:6",.01,"E"
         ;;D^QUERY
         ;;R^"863.8:","863.84:6",1,"E"
         ;;D^File
         ;;R^"863.8:","863.84:7",.01,"E"
         ;;D^DATA TYPE
         ;;R^"863.8:","863.84:7",1,"E"
         ;;D^POINTER TO A FILEMAN FILE
         ;;R^"863.8:","863.84:8",.01,"E"
         ;;D^DIC
         ;;R^"863.8:","863.84:8",1,"E"
         ;;D^1
         ;;EOR^
         ;;KEY^863.8:^FM MASK
         ;;R^"863.8:",.01,"E"
         ;;D^FM MASK
         ;;R^"863.8:",.02,"E"
         ;;D^FM MASK
         ;;R^"863.8:",1,1
         ;;D^Tag^routine where code is located to parse the FM DD and override t
          he parameter value
         ;;R^"863.8:","863.84:4",.01,"E"
         ;;D^QUERY
         ;;R^"863.8:","863.84:4",1,"E"
         ;;D^Enter tag^routine where the FM MASK parser is located
         ;;R^"863.8:","863.84:5",.01,"E"
         ;;D^DATA TYPE
         ;;R^"863.8:","863.84:5",1,"E"
         ;;D^LINE TAG
         ;;EOR^
         ;;KEY^863.8:^FREE TEXT MAXIMUM LENGTH
         ;;R^"863.8:",.01,"E"
         ;;D^FREE TEXT MAXIMUM LENGTH
         ;;R^"863.8:",.02,"E"
         ;;D^FMAX
         ;;R^"863.8:",1,1
         ;;D^Maximum string length allowed
         ;;R^"863.8:",2,"E"
         ;;D^245
         ;;R^"863.8:","863.84:3",.01,"E"
         ;;D^QUERY
         ;;R^"863.8:","863.84:3",1,"E"
         ;;D^Maximum text string length allowed
         ;;R^"863.8:","863.84:4",.01,"E"
         ;;D^FM MASK
         ;;R^"863.8:","863.84:4",1,"E"
         ;;D^FMAX^OCXF6
         ;;R^"863.8:","863.84:5",.01,"E"
         ;;D^DATA TYPE
         ;;R^"863.8:","863.84:5",1,"E"
         ;;D^POSITIVE INTEGER
         ;;EOR^
         ;;KEY^863.8:^HELP MESSAGE
         ;;R^"863.8:",.01,"E"
         ;;D^HELP MESSAGE
         ;;R^"863.8:",.02,"E"
         ;;D^HELP
         ;;R^"863.8:",1,1
         ;;D^A text string 1-250 characters long which overrides the Fileman hel
          p
         ;;R^"863.8:",1,2
         ;;D^message.
         ;;R^"863.8:","863.84:10",.01,"E"
         ;;D^QUERY
         ;;R^"863.8:","863.84:10",1,"E"
         ;;D^Enter a brief help message
         ;;R^"863.8:","863.84:8",.01,"E"
         ;;D^DATA TYPE
         ;;R^"863.8:","863.84:8",1,"E"
         ;;D^FREE TEXT
         ;;R^"863.8:","863.84:9",.01,"E"
         ;;D^FM MASK
         ;;R^"863.8:","863.84:9",1,"E"
         ;;D^HELP^OCXF6
         ;;EOR^
         ;;KEY^863.8:^LOOP QUERY
         ;;R^"863.8:",.01,"E"
         ;;D^LOOP QUERY
         ;;R^"863.8:",.02,"E"
         ;;D^LOOP QUERY
         ;;R^"863.8:",1,1
         ;;D^Alternate query used when repeated answers are required
         ;;R^"863.8:","863.84:1",.01,"E"
         ;;D^DATA TYPE
         ;;R^"863.8:","863.84:1",1,"E"
         ;;D^FREE TEXT
         ;;R^"863.8:","863.84:2",.01,"E"
         ;;D^QUERY
         ;;R^"863.8:","863.84:2",1,"E"
         ;;D^Enter loop query text
         ;;R^"863.8:","863.84:3",.01,"E"
         ;;D^HELP MESSAGE
         ;;R^"863.8:","863.84:3",1,"E"
         ;;D^This is the query text for all entries after the first one
         ;;EOR^
         ;;KEY^863.8:^MANDATORY MESSAGE
         ;;R^"863.8:",.01,"E"
         ;;D^MANDATORY MESSAGE
         ;;R^"863.8:",.02,"E"
         ;;D^MAND MSG
         ;;R^"863.8:",1,1
         ;;D^Message sent to user telling him that his entry is mandatory
         ;;R^"863.8:",2,"E"
         ;;D^Mandatory answer.  You must enter a value or '^' to exit.
         ;;R^"863.8:","863.84:4",.01,"E"
         ;;D^QUERY
         ;;R^"863.8:","863.84:4",1,"E"
         ;;D^Enter message
         ;;R^"863.8:","863.84:5",.01,"E"
         ;;D^DATA TYPE
         ;;R^"863.8:","863.84:5",1,"E"
         ;;D^FREE TEXT
         ;;EOR^
         ;;KEY^863.8:^OCXO DATA DRIVE SOURCE
         ;;R^"863.8:",.01,"E"
         ;;D^OCXO DATA DRIVE SOURCE
         ;;EOR^
         ;;KEY^863.8:^OCXO EXTERNAL FUNCTION CALL
         ;;R^"863.8:",.01,"E"
         ;;D^OCXO EXTERNAL FUNCTION CALL
         ;;EOR^
         ;;KEY^863.8:^OCXO FILE POINTER
         ;;R^"863.8:",.01,"E"
         ;;D^OCXO FILE POINTER
         ;;EOR^
         ;;KEY^863.8:^OCXO GENERATE CODE FUNCTION
         ;;R^"863.8:",.01,"E"
         ;;D^OCXO GENERATE CODE FUNCTION
         ;;R^"863.8:",.02,"E"
         ;;D^GEN
         ;;EOR^
         ;;KEY^863.8:^OCXO HL7 SEGMENT ID
         ;;R^"863.8:",.01,"E"
         ;;D^OCXO HL7 SEGMENT ID
         ;;R^"863.8:",.02,"E"
         ;;D^HL7SEGID
         ;;EOR^
         ;;KEY^863.8:^OCXO SEMI-COLON PIECE NUMBER
         ;;R^"863.8:",.01,"E"
         ;;D^OCXO SEMI-COLON PIECE NUMBER
         ;;EOR^
         ;;KEY^863.8:^OCXO UP-ARROW PIECE NUMBER
         ;;R^"863.8:",.01,"E"
         ;;D^OCXO UP-ARROW PIECE NUMBER
         ;;EOR^
         ;;KEY^863.8:^OCXO VARIABLE NAME
         ;;R^"863.8:",.01,"E"
         ;;D^OCXO VARIABLE NAME
         ;;EOR^
         ;;KEY^863.8:^OCXO VT-BAR PIECE NUMBER
         ;;R^"863.8:",.01,"E"
         ;;D^OCXO VT-BAR PIECE NUMBER
         ;;EOR^
         ;;KEY^863.8:^PRIMARY DATA FIELD
         ;1;
         ;

*****   INDEX OF ORY42701   *****


Local Variables      Line Occurrences   ( >> not killed explicitly)
                                        ( * Changed  ! Killed  ~ Newed)
>> LINE         S+6*
   LOCAL        S+5!
   OPCODE       S+5!
>> QUIT         S+6
   REF          S+5!
   REMOTE       S+5!
>> TEXT         S+6*,S+7

Global Variables  ( * Changed  ! Killed)
   ^TMP("OCXRULE"      S+7*

Naked Globals
   NONE

Cache Objects
   NONE

Marked Items
   $T(DATA+LINE S+6

Label References
   NONE

External References
   ^ORY42702           S+9
   DOT^ORY427ES        S+2

*****   END   *****

   Press return to continue:

























ORY42702 * *  328 Lines,  8047 Bytes, Checksum: B79020863
                                                  Jun 16, 2016@07:08:53 page 5
              120 bytes in comments
ORY42702 ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install
           of OR*3*427) ;MAY 10,2016 at 13:31
         ;;3.0;ORDER ENTRY/RESULTS REPORTING;**427**;Dec 17,1997;Build 242
         ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
         ;
S        ;
         ;
         D DOT^ORY427ES
         ;
         ;
         K REMOTE,LOCAL,OPCODE,REF
         F LINE=1:1:500 S TEXT=$P($T(DATA+LINE),";",2,999) Q:TEXT  I $L(TEXT) D 
           Q:QUIT
         .S ^TMP("OCXRULE",$J,$O(^TMP("OCXRULE",$J,"A"),-1)+1)=TEXT
         ;
         G ^ORY42703
         ;
         Q
         ;
DATA     ;
         ;
         ;;R^"863.8:",.01,"E"
         ;;D^PRIMARY DATA FIELD
         ;;R^"863.8:",.02,"E"
         ;;D^PDFLD
         ;;R^"863.8:",1,1
         ;;D^ 
         ;;R^"863.8:",1,2
         ;;D^  Primary data field in a comparison expression that
         ;;R^"863.8:",1,3
         ;;D^ is to be tested.
         ;;R^"863.8:",1,4
         ;;D^ 
         ;;EOR^
         ;;KEY^863.8:^QUERY
         ;;R^"863.8:",.01,"E"
         ;;D^QUERY
         ;;R^"863.8:",.02,"E"
         ;;D^QUERY
         ;;R^"863.8:",1,1
         ;;D^Used with methods that manage interactive dialogues.  Equivalent to
           DIC("A")
         ;;R^"863.8:","863.84:1",.01,"E"
         ;;D^DATA TYPE
         ;;R^"863.8:","863.84:1",1,"E"
         ;;D^FREE TEXT
         ;;R^"863.8:","863.84:2",.01,"E"
         ;;D^QUERY
         ;;R^"863.8:","863.84:2",1,"E"
         ;;D^Enter the query (free text string)
         ;;EOR^
         ;;KEY^863.8:^REPEAT THE QUERY
         ;;R^"863.8:",.01,"E"
         ;;D^REPEAT THE QUERY
         ;;R^"863.8:",.02,"E"
         ;;D^LOOP
         ;;R^"863.8:",1,1
         ;;D^Set this = 1 to repetitively ask the user to enter a value
         ;;R^"863.8:","863.84:1",.01,"E"
         ;;D^DATA TYPE
         ;;R^"863.8:","863.84:1",1,"E"
         ;;D^YES NO
         ;;R^"863.8:","863.84:2",.01,"E"
         ;;D^HELP MESSAGE
         ;;R^"863.8:","863.84:2",1,"E"
         ;;D^Answer 'YES' if you want the user to repetitively enter a value.
         ;;R^"863.8:","863.84:3",.01,"E"
         ;;D^QUERY
         ;;R^"863.8:","863.84:3",1,"E"
         ;;D^Is the query repetitive
         ;;EOR^
         ;;KEY^863.8:^TERMINATOR
         ;;R^"863.8:",.01,"E"
         ;;D^TERMINATOR
         ;;R^"863.8:",.02,"E"
         ;;D^TERMINATOR
         ;;R^"863.8:",1,1
         ;;D^A text string terminator; e.g., '?', ': ', '=>'
         ;;R^"863.8:",2,"E"
         ;;D^:
         ;;R^"863.8:","863.84:4",.01,"E"
         ;;D^QUERY
         ;;R^"863.8:","863.84:4",1,"E"
         ;;D^Enter text string terminator
         ;;R^"863.8:","863.84:5",.01,"E"
         ;;D^DATA TYPE
         ;;R^"863.8:","863.84:5",1,"E"
         ;;D^FREE TEXT
         ;;R^"863.8:","863.84:6",.01,"E"
         ;;D^FREE TEXT MAXIMUM LENGTH
         ;;R^"863.8:","863.84:6",1,"E"
         ;;D^9
         ;;EOR^
         ;;KEY^863.8:^VALUE CALL
         ;;R^"863.8:",.01,"E"
         ;;D^VALUE CALL
         ;;R^"863.8:",.02,"E"
         ;;D^VAL CALL
         ;;R^"863.8:",.03,"E"
         ;;D^NO
         ;;R^"863.8:",1,1
         ;;D^tag^routine which manages the dialogue for collecting and validatin
          g a value
         ;;R^"863.8:","863.84:3",.01,"E"
         ;;D^QUERY
         ;;R^"863.8:","863.84:3",1,"E"
         ;;D^Enter tag^routine
         ;;R^"863.8:","863.84:4",.01,"E"
         ;;D^DATA TYPE
         ;;R^"863.8:","863.84:4",1,"E"
         ;;D^LINE TAG
         ;;EOR^
         ;;EOF^OCXS(863.8)^1
         ;;SOF^864.1  OCX MDD DATATYPE
         ;;KEY^864.1:^BOOLEAN
         ;;R^"864.1:",.01,"E"
         ;;D^BOOLEAN
         ;;R^"864.1:",.02,"E"
         ;;D^BOOL
         ;;EOR^
         ;;KEY^864.1:^FREE TEXT
         ;;R^"864.1:",.01,"E"
         ;;D^FREE TEXT
         ;;R^"864.1:",.02,"E"
         ;;D^FT
         ;;R^"864.1:",2,"E"
         ;;D^GENERIC
         ;;R^"864.1:","864.11:1",.01,"E"
         ;;D^VALUE CALL
         ;;R^"864.1:","864.11:1",1,"E"
         ;;D^FT^OCXFDFT
         ;;R^"864.1:","864.11:2",.01,"E"
         ;;D^QUERY
         ;;R^"864.1:","864.11:2",1,"E"
         ;;D^Enter a free text string
         ;;R^"864.1:","864.11:3",.01,"E"
         ;;D^FREE TEXT MAXIMUM LENGTH
         ;;R^"864.1:","864.11:3",1,"E"
         ;;D^240
         ;;R^"864.1:","864.11:4",.01,"E"
         ;;D^HELP MESSAGE
         ;;R^"864.1:","864.11:4",1,"E"
         ;;D^Enter a free text string.  Do not use control characters.  |FTMM HE
          LP|
         ;;R^"864.1:","864.11:5",.01,"E"
         ;;D^LOOP QUERY
         ;;R^"864.1:","864.11:5",1,"E"
         ;;D^Enter another free text string
         ;;R^"864.1:","864.11:6",.01,"E"
         ;;D^REPEAT THE QUERY
         ;;R^"864.1:","864.11:6",1,"E"
         ;;D^0
         ;;EOR^
         ;;KEY^864.1:^GENERIC
         ;;R^"864.1:",.01,"E"
         ;;D^GENERIC
         ;;R^"864.1:",.02,"E"
         ;;D^GENERIC
         ;;R^"864.1:","864.11:11",.01,"E"
         ;;D^MANDATORY MESSAGE
         ;;R^"864.1:","864.11:11",1,"E"
         ;;D^This answer is mandatory.  Enter a response or press '^' to exit.
         ;;R^"864.1:","864.11:12",.01,"E"
         ;;D^TERMINATOR
         ;;R^"864.1:","864.11:12",1,"E"
         ;;D^:
         ;;R^"864.1:","864.11:13",.01,"E"
         ;;D^LOOP QUERY
         ;;R^"864.1:","864.11:13",1,"E"
         ;;D^Enter another value
         ;;R^"864.1:","864.11:7",.01,"E"
         ;;D^VALUE CALL
         ;;R^"864.1:","864.11:7",1,"E"
         ;;D^GEN^OCXFDMOM
         ;;R^"864.1:","864.11:8",.01,"E"
         ;;D^QUERY
         ;;R^"864.1:","864.11:8",1,"E"
         ;;D^Enter a value
         ;;R^"864.1:","864.11:9",.01,"E"
         ;;D^HELP MESSAGE
         ;;R^"864.1:","864.11:9",1,"E"
         ;;D^ 
         ;;EOR^
         ;;KEY^864.1:^NUMERIC
         ;;R^"864.1:",.01,"E"
         ;;D^NUMERIC
         ;;R^"864.1:",.02,"E"
         ;;D^NUMERIC
         ;;R^"864.1:",2,"E"
         ;;D^GENERIC
         ;;R^"864.1:","864.11:1",.01,"E"
         ;;D^VALUE CALL
         ;;R^"864.1:","864.11:1",1,"E"
         ;;D^NU^OCXFDNU
         ;;R^"864.1:","864.11:2",.01,"E"
         ;;D^QUERY
         ;;R^"864.1:","864.11:2",1,"E"
         ;;D^Enter a number
         ;;R^"864.1:","864.11:3",.01,"E"
         ;;D^LOOP QUERY
         ;;R^"864.1:","864.11:3",1,"E"
         ;;D^Enter another number
         ;;R^"864.1:","864.11:4",.01,"E"
         ;;D^REPEAT THE QUERY
         ;;R^"864.1:","864.11:4",1,"E"
         ;;D^0
         ;;EOR^
         ;;EOF^OCXS(864.1)^1
         ;;SOF^863.7  OCX MDD PUBLIC FUNCTION
         ;;KEY^863.7:^GCC BOOLEAN LOGICAL FALSE
         ;;R^"863.7:",.01,"E"
         ;;D^GCC BOOLEAN LOGICAL FALSE
         ;;R^"863.7:",.02,"E"
         ;;D^EXTRINSIC FUNCTION
         ;;R^"863.7:",3,"E"
         ;;D^FALSE^OCXF23
         ;;R^"863.7:","863.74:1",.01,"E"
         ;;D^PRIMARY DATA FIELD
         ;;R^"863.7:","863.74:1",1.1,"E"
         ;;D^1
         ;;EOR^
         ;;KEY^863.7:^GCC BOOLEAN LOGICAL TRUE
         ;;R^"863.7:",.01,"E"
         ;;D^GCC BOOLEAN LOGICAL TRUE
         ;;R^"863.7:",.02,"E"
         ;;D^EXTRINSIC FUNCTION
         ;;R^"863.7:",3,"E"
         ;;D^TRUE^OCXF23
         ;;R^"863.7:","863.74:1",.01,"E"
         ;;D^PRIMARY DATA FIELD
         ;;R^"863.7:","863.74:1",1.1,"E"
         ;;D^1
         ;;EOR^
         ;;KEY^863.7:^GCC FREE TEXT EQUALS
         ;;R^"863.7:",.01,"E"
         ;;D^GCC FREE TEXT EQUALS
         ;;R^"863.7:",.02,"E"
         ;;D^EXTRINSIC FUNCTION
         ;;R^"863.7:",3,"E"
         ;;D^AEQ^OCXF22
         ;;R^"863.7:","863.74:1",.01,"E"
         ;;D^PRIMARY DATA FIELD
         ;;R^"863.7:","863.74:1",1.1,"E"
         ;;D^1
         ;;R^"863.7:","863.74:2",.01,"E"
         ;;D^COMPARISON VALUE
         ;;R^"863.7:","863.74:2",1.1,"E"
         ;;D^2
         ;;EOR^
         ;;KEY^863.7:^GCC FREE TEXT STARTS WITH
         ;;R^"863.7:",.01,"E"
         ;;D^GCC FREE TEXT STARTS WITH
         ;;R^"863.7:",.02,"E"
         ;;D^EXTRINSIC FUNCTION
         ;;R^"863.7:",3,"E"
         ;;D^START^OCXF22
         ;;R^"863.7:","863.74:1",.01,"E"
         ;;D^PRIMARY DATA FIELD
         ;;R^"863.7:","863.74:1",1.1,"E"
         ;;D^1
         ;;R^"863.7:","863.74:2",.01,"E"
         ;;D^COMPARISON VALUE
         ;;R^"863.7:","863.74:2",1.1,"E"
         ;;D^2
         ;;EOR^
         ;;KEY^863.7:^GCC NUMERIC GREATER THAN
         ;;R^"863.7:",.01,"E"
         ;;D^GCC NUMERIC GREATER THAN
         ;;R^"863.7:",.02,"E"
         ;;D^EXTRINSIC FUNCTION
         ;;R^"863.7:",3,"E"
         ;;D^GRT^OCXF20
         ;;R^"863.7:","863.74:1",.01,"E"
         ;;D^PRIMARY DATA FIELD
         ;;R^"863.7:","863.74:1",1.1,"E"
         ;;D^1
         ;;R^"863.7:","863.74:2",.01,"E"
         ;;D^COMPARISON VALUE
         ;;R^"863.7:","863.74:2",1.1,"E"
         ;;D^2
         ;;EOR^
         ;;KEY^863.7:^GCC NUMERIC LESS THAN
         ;;R^"863.7:",.01,"E"
         ;;D^GCC NUMERIC LESS THAN
         ;;R^"863.7:",.02,"E"
         ;;D^EXTRINSIC FUNCTION
         ;;R^"863.7:",3,"E"
         ;;D^LESS^OCXF20
         ;;R^"863.7:","863.74:1",.01,"E"
         ;;D^PRIMARY DATA FIELD
         ;;R^"863.7:","863.74:1",1.1,"E"
         ;;D^1
         ;;R^"863.7:","863.74:2",.01,"E"
         ;;D^COMPARISON VALUE
         ;;R^"863.7:","863.74:2",1.1,"E"
         ;;D^2
         ;;EOR^
         ;;EOF^OCXS(863.7)^1
         ;;SOF^863.9  OCX MDD CONDITION/FUNCTION
         ;;KEY^863.9:^EQ FREE TEXT
         ;;R^"863.9:",.01,"E"
         ;;D^EQ FREE TEXT
         ;;R^"863.9:",.02,"E"
         ;;D^FREE TEXT
         ;;R^"863.9:",.04,"E"
         ;;D^IS EQUAL TO
         ;;R^"863.9:","863.91:3",.01,"E"
         ;;D^OCXO GENERATE CODE FUNCTION
         ;;R^"863.9:","863.91:3",1,"E"
         ;;D^GCC FREE TEXT EQUALS
         ;;R^"863.9:","863.92:1",.01,"E"
         ;;D^EQUALS
         ;;EOR^
         ;;KEY^863.9:^GREATER THAN
         ;;R^"863.9:",.01,"E"
         ;;D^GREATER THAN
         ;;R^"863.9:",.02,"E"
         ;;D^NUMERIC
         ;;R^"863.9:",.04,"E"
         ;;D^IS GREATER THAN
         ;;R^"863.9:","863.91:3",.01,"E"
         ;;D^OCXO GENERATE CODE FUNCTION
         ;;R^"863.9:","863.91:3",1,"E"
         ;;D^GCC NUMERIC GREATER THAN
         ;;EOR^
         ;;KEY^863.9:^LESS THAN
         ;;R^"863.9:",.01,"E"
         ;;D^LESS THAN
         ;;R^"863.9:",.02,"E"
         ;;D^NUMERIC
         ;;R^"863.9:",.04,"E"
         ;1;
         ;

*****   INDEX OF ORY42702   *****


Local Variables      Line Occurrences   ( >> not killed explicitly)
                                        ( * Changed  ! Killed  ~ Newed)
>> LINE         S+6*
   LOCAL        S+5!
   OPCODE       S+5!
>> QUIT         S+6
   REF          S+5!
   REMOTE       S+5!
>> TEXT         S+6*,S+7

Global Variables  ( * Changed  ! Killed)
   ^TMP("OCXRULE"      S+7*

Naked Globals
   NONE

Cache Objects
   NONE

Marked Items
   $T(DATA+LINE S+6

Label References
   NONE

External References
   ^ORY42703           S+9
   DOT^ORY427ES        S+2

*****   END   *****

   Press return to continue:

























ORY42703 * *  330 Lines,  8061 Bytes, Checksum: B78683867
                                                  Jun 16, 2016@07:08:53 page 6
              120 bytes in comments
ORY42703 ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install
           of OR*3*427) ;MAY 10,2016 at 13:31
         ;;3.0;ORDER ENTRY/RESULTS REPORTING;**427**;Dec 17,1997;Build 242
         ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
         ;
S        ;
         ;
         D DOT^ORY427ES
         ;
         ;
         K REMOTE,LOCAL,OPCODE,REF
         F LINE=1:1:500 S TEXT=$P($T(DATA+LINE),";",2,999) Q:TEXT  I $L(TEXT) D 
           Q:QUIT
         .S ^TMP("OCXRULE",$J,$O(^TMP("OCXRULE",$J,"A"),-1)+1)=TEXT
         ;
         G ^ORY42704
         ;
         Q
         ;
DATA     ;
         ;
         ;;D^IS LESS THAN
         ;;R^"863.9:","863.91:3",.01,"E"
         ;;D^OCXO GENERATE CODE FUNCTION
         ;;R^"863.9:","863.91:3",1,"E"
         ;;D^GCC NUMERIC LESS THAN
         ;;EOR^
         ;;KEY^863.9:^LOGICAL FALSE
         ;;R^"863.9:",.01,"E"
         ;;D^LOGICAL FALSE
         ;;R^"863.9:",.02,"E"
         ;;D^BOOLEAN
         ;;R^"863.9:",.03,"E"
         ;;D^GCC BOOLEAN LOGICAL FALSE
         ;;R^"863.9:",.04,"E"
         ;;D^IS FALSE
         ;;R^"863.9:","863.91:1",.01,"E"
         ;;D^OCXO GENERATE CODE FUNCTION
         ;;R^"863.9:","863.91:1",1,"E"
         ;;D^GCC BOOLEAN LOGICAL FALSE
         ;;R^"863.9:","863.92:1",.01,"E"
         ;;D^FALSE
         ;;EOR^
         ;;KEY^863.9:^LOGICAL TRUE
         ;;R^"863.9:",.01,"E"
         ;;D^LOGICAL TRUE
         ;;R^"863.9:",.02,"E"
         ;;D^BOOLEAN
         ;;R^"863.9:",.03,"E"
         ;;D^GCC BOOLEAN LOGICAL TRUE
         ;;R^"863.9:",.04,"E"
         ;;D^IS TRUE
         ;;R^"863.9:","863.91:1",.01,"E"
         ;;D^OCXO GENERATE CODE FUNCTION
         ;;R^"863.9:","863.91:1",1,"E"
         ;;D^GCC BOOLEAN LOGICAL TRUE
         ;;R^"863.9:","863.92:1",.01,"E"
         ;;D^TRUE
         ;;EOR^
         ;;KEY^863.9:^STARTS WITH
         ;;R^"863.9:",.01,"E"
         ;;D^STARTS WITH
         ;;R^"863.9:",.02,"E"
         ;;D^FREE TEXT
         ;;R^"863.9:",.04,"E"
         ;;D^STARTS WITH
         ;;R^"863.9:","863.91:3",.01,"E"
         ;;D^OCXO GENERATE CODE FUNCTION
         ;;R^"863.9:","863.91:3",1,"E"
         ;;D^GCC FREE TEXT STARTS WITH
         ;;R^"863.9:","863.92:1",.01,"E"
         ;;D^BEGINS WITH
         ;;EOR^
         ;;EOF^OCXS(863.9)^1
         ;;SOF^863.4  OCX MDD ATTRIBUTE
         ;;KEY^863.4:^CLOZAPINE ANC W/IN 7 FLAG
         ;;R^"863.4:",.01,"E"
         ;;D^CLOZAPINE ANC W/IN 7 FLAG
         ;;R^"863.4:","863.41:1",.01,"E"
         ;;D^DATA TYPE
         ;;R^"863.4:","863.41:1",1,"E"
         ;;D^BOOLEAN
         ;;EOR^
         ;;KEY^863.4:^CLOZAPINE ANC W/IN 7 RESULT
         ;;R^"863.4:",.01,"E"
         ;;D^CLOZAPINE ANC W/IN 7 RESULT
         ;;R^"863.4:","863.41:1",.01,"E"
         ;;D^DATA TYPE
         ;;R^"863.4:","863.41:1",1,"E"
         ;;D^NUMERIC
         ;;EOR^
         ;;KEY^863.4:^CLOZAPINE LAB RESULTS
         ;;R^"863.4:",.01,"E"
         ;;D^CLOZAPINE LAB RESULTS
         ;;R^"863.4:","863.41:1",.01,"E"
         ;;D^DATA TYPE
         ;;R^"863.4:","863.41:1",1,"E"
         ;;D^FREE TEXT
         ;;EOR^
         ;;KEY^863.4:^CLOZAPINE MED
         ;;R^"863.4:",.01,"E"
         ;;D^CLOZAPINE MED
         ;;R^"863.4:","863.41:1",.01,"E"
         ;;D^DATA TYPE
         ;;R^"863.4:","863.41:1",1,"E"
         ;;D^BOOLEAN
         ;;EOR^
         ;;KEY^863.4:^DISPENSE DRUG
         ;;R^"863.4:",.01,"E"
         ;;D^DISPENSE DRUG
         ;;R^"863.4:","863.41:1",.01,"E"
         ;;D^DATA TYPE
         ;;R^"863.4:","863.41:1",1,"E"
         ;;D^FREE TEXT
         ;;EOR^
         ;;KEY^863.4:^FILLER
         ;;R^"863.4:",.01,"E"
         ;;D^FILLER
         ;;R^"863.4:","863.41:1",.01,"E"
         ;;D^DATA TYPE
         ;;R^"863.4:","863.41:1",1,"E"
         ;;D^FREE TEXT
         ;;EOR^
         ;;KEY^863.4:^HL7 FILLER
         ;;R^"863.4:",.01,"E"
         ;;D^HL7 FILLER
         ;;R^"863.4:",.02,"E"
         ;;D^HL7FILLR
         ;;R^"863.4:","863.41:1",.01,"E"
         ;;D^DATA TYPE
         ;;R^"863.4:","863.41:1",1,"E"
         ;;D^FREE TEXT
         ;;EOR^
         ;;KEY^863.4:^IEN
         ;;R^"863.4:",.01,"E"
         ;;D^IEN
         ;;R^"863.4:","863.41:1",.01,"E"
         ;;D^DATA TYPE
         ;;R^"863.4:","863.41:1",1,"E"
         ;;D^NUMERIC
         ;;EOR^
         ;;KEY^863.4:^ORDER MODE
         ;;R^"863.4:",.01,"E"
         ;;D^ORDER MODE
         ;;R^"863.4:","863.41:1",.01,"E"
         ;;D^DATA TYPE
         ;;R^"863.4:","863.41:1",1,"E"
         ;;D^FREE TEXT
         ;;EOR^
         ;;KEY^863.4:^ORDER PATIENT
         ;;R^"863.4:",.01,"E"
         ;;D^ORDER PATIENT
         ;;R^"863.4:","863.41:1",.01,"E"
         ;;D^DATA TYPE
         ;;R^"863.4:","863.41:1",1,"E"
         ;;D^NUMERIC
         ;;EOR^
         ;;EOF^OCXS(863.4)^1
         ;;SOF^863.2  OCX MDD SUBJECT
         ;;KEY^863.2:^PATIENT
         ;;R^"863.2:",.01,"E"
         ;;D^PATIENT
         ;;R^"863.2:","863.21:1",.01,"E"
         ;;D^FILE
         ;;R^"863.2:","863.21:1",1,"E"
         ;;D^2
         ;;EOR^
         ;;EOF^OCXS(863.2)^1
         ;;SOF^863.3  OCX MDD LINK
         ;;KEY^863.3:^PATIENT.CLOZAPINE MED
         ;;R^"863.3:",.01,"E"
         ;;D^PATIENT.CLOZAPINE MED
         ;;R^"863.3:",.02,"E"
         ;;D^PATIENT
         ;;R^"863.3:",.05,"E"
         ;;D^CLOZAPINE MED
         ;;R^"863.3:",.06,"E"
         ;;D^3555
         ;;R^"863.3:","863.32:1",.01,"E"
         ;;D^OCXO EXTERNAL FUNCTION CALL
         ;;R^"863.3:","863.32:1",1,"E"
         ;;D^CLOZLABS^ORKLR(|PATIENT IEN|,7,|DISP DRUG IEN|)
         ;;R^"863.3:","863.32:2",.01,"E"
         ;;D^OCXO UP-ARROW PIECE NUMBER
         ;;R^"863.3:","863.32:2",1,"E"
         ;;D^1
         ;;EOR^
         ;;KEY^863.3:^PATIENT.CLOZ_ANC_W/IN_7_FLAG
         ;;R^"863.3:",.01,"E"
         ;;D^PATIENT.CLOZ_ANC_W/IN_7_FLAG
         ;;R^"863.3:",.02,"E"
         ;;D^PATIENT
         ;;R^"863.3:",.05,"E"
         ;;D^CLOZAPINE ANC W/IN 7 FLAG
         ;;R^"863.3:","863.32:1",.01,"E"
         ;;D^OCXO EXTERNAL FUNCTION CALL
         ;;R^"863.3:","863.32:1",1,"E"
         ;;D^CLOZLABS^ORKLR(|PATIENT IEN|,7,|DISP DRUG IEN|)
         ;;R^"863.3:","863.32:2",.01,"E"
         ;;D^OCXO UP-ARROW PIECE NUMBER
         ;;R^"863.3:","863.32:2",1,"E"
         ;;D^3
         ;;R^"863.3:","863.32:3",.01,"E"
         ;;D^OCXO SEMI-COLON PIECE NUMBER
         ;;R^"863.3:","863.32:3",1,"E"
         ;;D^1
         ;;EOR^
         ;;KEY^863.3:^PATIENT.CLOZ_ANC_W/IN_7_RSLT
         ;;R^"863.3:",.01,"E"
         ;;D^PATIENT.CLOZ_ANC_W/IN_7_RSLT
         ;;R^"863.3:",.02,"E"
         ;;D^PATIENT
         ;;R^"863.3:",.05,"E"
         ;;D^CLOZAPINE ANC W/IN 7 RESULT
         ;;R^"863.3:","863.32:1",.01,"E"
         ;;D^OCXO EXTERNAL FUNCTION CALL
         ;;R^"863.3:","863.32:1",1,"E"
         ;;D^CLOZLABS^ORKLR(|PATIENT IEN|,7,|DISP DRUG IEN|)
         ;;R^"863.3:","863.32:2",.01,"E"
         ;;D^OCXO UP-ARROW PIECE NUMBER
         ;;R^"863.3:","863.32:2",1,"E"
         ;;D^3
         ;;R^"863.3:","863.32:3",.01,"E"
         ;;D^OCXO SEMI-COLON PIECE NUMBER
         ;;R^"863.3:","863.32:3",1,"E"
         ;;D^2
         ;;EOR^
         ;;KEY^863.3:^PATIENT.CLOZ_LAB_RESULTS
         ;;R^"863.3:",.01,"E"
         ;;D^PATIENT.CLOZ_LAB_RESULTS
         ;;R^"863.3:",.02,"E"
         ;;D^PATIENT
         ;;R^"863.3:",.05,"E"
         ;;D^CLOZAPINE LAB RESULTS
         ;;R^"863.3:","863.32:1",.01,"E"
         ;;D^OCXO EXTERNAL FUNCTION CALL
         ;;R^"863.3:","863.32:1",1,"E"
         ;;D^CLOZLABS^ORKLR(|PATIENT IEN|,"",|DISP DRUG IEN|)
         ;;R^"863.3:","863.32:2",.01,"E"
         ;;D^OCXO UP-ARROW PIECE NUMBER
         ;;R^"863.3:","863.32:2",1,"E"
         ;;D^4
         ;;EOR^
         ;;KEY^863.3:^PATIENT.HL7_FILLER
         ;;R^"863.3:",.01,"E"
         ;;D^PATIENT.HL7_FILLER
         ;;R^"863.3:",.02,"E"
         ;;D^PATIENT
         ;;R^"863.3:",.04,"E"
         ;;D^HL7
         ;;R^"863.3:",.05,"E"
         ;;D^HL7 FILLER
         ;;R^"863.3:","863.32:1",.01,"E"
         ;;D^OCXO VT-BAR PIECE NUMBER
         ;;R^"863.3:","863.32:2",.01,"E"
         ;;D^OCXO UP-ARROW PIECE NUMBER
         ;;R^"863.3:","863.32:2",1,"E"
         ;;D^2
         ;;R^"863.3:","863.32:3",.01,"E"
         ;;D^OCXO VARIABLE NAME
         ;;R^"863.3:","863.32:3",1,"E"
         ;;D^OCXODATA("ORC",3)
         ;;R^"863.3:","863.32:4",.01,"E"
         ;;D^OCXO HL7 SEGMENT ID
         ;;R^"863.3:","863.32:5",.01,"E"
         ;;D^OCXO DATA DRIVE SOURCE
         ;;R^"863.3:","863.32:5",1,"E"
         ;;D^HL7
         ;;R^"863.3:","863.32:6",.01,"E"
         ;;D^OCXO FILE POINTER
         ;;EOR^
         ;;KEY^863.3:^PATIENT.HL7_PATIENT_ID
         ;;R^"863.3:",.01,"E"
         ;;D^PATIENT.HL7_PATIENT_ID
         ;;R^"863.3:",.02,"E"
         ;;D^PATIENT
         ;;R^"863.3:",.04,"E"
         ;;D^HL7
         ;;R^"863.3:",.05,"E"
         ;;D^IEN
         ;;R^"863.3:",.06,"E"
         ;;D^99
         ;;R^"863.3:","863.32:1",.01,"E"
         ;;D^OCXO HL7 SEGMENT ID
         ;;R^"863.3:","863.32:2",.01,"E"
         ;;D^OCXO VT-BAR PIECE NUMBER
         ;;R^"863.3:","863.32:3",.01,"E"
         ;;D^OCXO VARIABLE NAME
         ;;R^"863.3:","863.32:3",1,"E"
         ;;D^OCXODATA("PID",3)
         ;;EOR^
         ;;KEY^863.3:^PATIENT.IEN
         ;;R^"863.3:",.01,"E"
         ;;D^PATIENT.IEN
         ;;R^"863.3:",.02,"E"
         ;;D^PATIENT
         ;;R^"863.3:",.05,"E"
         ;;D^IEN
         ;;R^"863.3:",.06,"E"
         ;;D^99
         ;;R^"863.3:","863.32:1",.01,"E"
         ;;D^OCXO VARIABLE NAME
         ;;R^"863.3:","863.32:1",1,"E"
         ;;D^DFN
         ;;EOR^
         ;;KEY^863.3:^PATIENT.OERR_ORDER_PATIENT
         ;;R^"863.3:",.01,"E"
         ;;D^PATIENT.OERR_ORDER_PATIENT
         ;;R^"863.3:",.02,"E"
         ;;D^PATIENT
         ;;R^"863.3:",.05,"E"
         ;;D^ORDER PATIENT
         ;;R^"863.3:",.06,"E"
         ;;D^5567
         ;;R^"863.3:","863.32:1",.01,"E"
         ;;D^OCXO VARIABLE NAME
         ;;R^"863.3:","863.32:1",1,"E"
         ;;D^OCXORD
         ;;R^"863.3:","863.32:2",.01,"E"
         ;;D^OCXO UP-ARROW PIECE NUMBER
         ;;R^"863.3:","863.32:2",1,"E"
         ;;D^1
         ;;EOR^
         ;;KEY^863.3:^PATIENT.OPS_DRUG_ID
         ;;R^"863.3:",.01,"E"
         ;;D^PATIENT.OPS_DRUG_ID
         ;;R^"863.3:",.02,"E"
         ;;D^PATIENT
         ;;R^"863.3:",.05,"E"
         ;;D^DISPENSE DRUG
         ;1;
         ;

*****   INDEX OF ORY42703   *****


Local Variables      Line Occurrences   ( >> not killed explicitly)
                                        ( * Changed  ! Killed  ~ Newed)
>> LINE         S+6*
   LOCAL        S+5!
   OPCODE       S+5!
>> QUIT         S+6
   REF          S+5!
   REMOTE       S+5!
>> TEXT         S+6*,S+7

Global Variables  ( * Changed  ! Killed)
   ^TMP("OCXRULE"      S+7*

Naked Globals
   NONE

Cache Objects
   NONE

Marked Items
   $T(DATA+LINE S+6

Label References
   NONE

External References
   ^ORY42704           S+9
   DOT^ORY427ES        S+2

*****   END   *****

   Press return to continue:

























ORY42704 * *  267 Lines,  7775 Bytes, Checksum: B81471478
                                                  Jun 16, 2016@07:08:53 page 7
              120 bytes in comments
ORY42704 ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install
           of OR*3*427) ;MAY 10,2016 at 13:31
         ;;3.0;ORDER ENTRY/RESULTS REPORTING;**427**;Dec 17,1997;Build 242
         ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
         ;
S        ;
         ;
         D DOT^ORY427ES
         ;
         ;
         K REMOTE,LOCAL,OPCODE,REF
         F LINE=1:1:500 S TEXT=$P($T(DATA+LINE),";",2,999) Q:TEXT  I $L(TEXT) D 
           Q:QUIT
         .S ^TMP("OCXRULE",$J,$O(^TMP("OCXRULE",$J,"A"),-1)+1)=TEXT
         ;
         G ^ORY42705
         ;
         Q
         ;
DATA     ;
         ;
         ;;R^"863.3:",.06,"E"
         ;;D^33
         ;;R^"863.3:","863.32:1",.01,"E"
         ;;D^OCXO VARIABLE NAME
         ;;R^"863.3:","863.32:1",1,"E"
         ;;D^OCXPSD
         ;;R^"863.3:","863.32:2",.01,"E"
         ;;D^OCXO VT-BAR PIECE NUMBER
         ;;R^"863.3:","863.32:2",1,"E"
         ;;D^2
         ;;R^"863.3:","863.32:3",.01,"E"
         ;;D^OCXO UP-ARROW PIECE NUMBER
         ;;R^"863.3:","863.32:3",1,"E"
         ;;D^4
         ;;EOR^
         ;;KEY^863.3:^PATIENT.OPS_FILLER
         ;;R^"863.3:",.01,"E"
         ;;D^PATIENT.OPS_FILLER
         ;;R^"863.3:",.02,"E"
         ;;D^PATIENT
         ;;R^"863.3:",.04,"E"
         ;;D^OPS
         ;;R^"863.3:",.05,"E"
         ;;D^FILLER
         ;;R^"863.3:",.06,"E"
         ;;D^99
         ;;R^"863.3:","863.32:1",.01,"E"
         ;;D^OCXO VARIABLE NAME
         ;;R^"863.3:","863.32:1",1,"E"
         ;;D^OCXPSD
         ;;R^"863.3:","863.32:2",.01,"E"
         ;;D^OCXO VT-BAR PIECE NUMBER
         ;;R^"863.3:","863.32:2",1,"E"
         ;;D^1
         ;;EOR^
         ;;KEY^863.3:^PATIENT.OPS_ORD_MODE
         ;;R^"863.3:",.01,"E"
         ;;D^PATIENT.OPS_ORD_MODE
         ;;R^"863.3:",.02,"E"
         ;;D^PATIENT
         ;;R^"863.3:",.04,"E"
         ;;D^OPS
         ;;R^"863.3:",.05,"E"
         ;;D^ORDER MODE
         ;;R^"863.3:",.06,"E"
         ;;D^99
         ;;R^"863.3:","863.32:1",.01,"E"
         ;;D^OCXO VARIABLE NAME
         ;;R^"863.3:","863.32:1",1,"E"
         ;;D^OCXPSM
         ;;EOR^
         ;;EOF^OCXS(863.3)^1
         ;;SOF^860.9  ORDER CHECK NATIONAL TERM
         ;;KEY^860.9:^ANGIOGRAM (PERIPHERAL)
         ;;R^"860.9:",.01,"E"
         ;;D^ANGIOGRAM (PERIPHERAL)
         ;;R^"860.9:",.02,"E"
         ;;D^101.43
         ;;EOR^
         ;;KEY^860.9:^BLOOD SPECIMEN
         ;;R^"860.9:",.01,"E"
         ;;D^BLOOD SPECIMEN
         ;;R^"860.9:",.02,"E"
         ;;D^61
         ;;EOR^
         ;;KEY^860.9:^DANGEROUS MEDS FOR PTS > 64
         ;;R^"860.9:",.01,"E"
         ;;D^DANGEROUS MEDS FOR PTS > 64
         ;;R^"860.9:",.02,"E"
         ;;D^101.43
         ;;R^"860.9:",2,"E"
         ;;D^I $P($G(^ORD(100.98,$P($G(^ORD(101.43,+Y,0)),U,5),0)),U)="PHARMACY"
         ;;EOR^
         ;;KEY^860.9:^DNR
         ;;R^"860.9:",.01,"E"
         ;;D^DNR
         ;;R^"860.9:",.02,"E"
         ;;D^101.43
         ;;EOR^
         ;;KEY^860.9:^EGFR
         ;;R^"860.9:",.01,"E"
         ;;D^EGFR
         ;;R^"860.9:",.02,"E"
         ;;D^60
         ;;EOR^
         ;;KEY^860.9:^FOOD-DRUG INTERACTION MED
         ;;R^"860.9:",.01,"E"
         ;;D^FOOD-DRUG INTERACTION MED
         ;;R^"860.9:",.02,"E"
         ;;D^101.43
         ;;R^"860.9:",2,"E"
         ;;D^I $P($G(^ORD(100.98,$P($G(^ORD(101.43,+Y,0)),U,5),0)),U)="PHARMACY"
         ;;EOR^
         ;;KEY^860.9:^NPO
         ;;R^"860.9:",.01,"E"
         ;;D^NPO
         ;;R^"860.9:",.02,"E"
         ;;D^101.43
         ;;EOR^
         ;;KEY^860.9:^ONE TIME MED
         ;;R^"860.9:",.01,"E"
         ;;D^ONE TIME MED
         ;;R^"860.9:",.02,"E"
         ;;D^51.1
         ;;R^"860.9:",2,"E"
         ;;D^I $E($P(^(0),U,4),1,2)="PS"
         ;;EOR^
         ;;KEY^860.9:^PARTIAL THROMBOPLASTIN TIME
         ;;R^"860.9:",.01,"E"
         ;;D^PARTIAL THROMBOPLASTIN TIME
         ;;R^"860.9:",.02,"E"
         ;;D^101.43
         ;;EOR^
         ;;KEY^860.9:^PROTHROMBIN TIME
         ;;R^"860.9:",.01,"E"
         ;;D^PROTHROMBIN TIME
         ;;R^"860.9:",.02,"E"
         ;;D^101.43
         ;;EOR^
         ;;KEY^860.9:^SERUM CREATININE
         ;;R^"860.9:",.01,"E"
         ;;D^SERUM CREATININE
         ;;R^"860.9:",.02,"E"
         ;;D^60
         ;;EOR^
         ;;KEY^860.9:^SERUM SPECIMEN
         ;;R^"860.9:",.01,"E"
         ;;D^SERUM SPECIMEN
         ;;R^"860.9:",.02,"E"
         ;;D^61
         ;;EOR^
         ;;KEY^860.9:^SERUM UREA NITROGEN
         ;;R^"860.9:",.01,"E"
         ;;D^SERUM UREA NITROGEN
         ;;R^"860.9:",.02,"E"
         ;;D^60
         ;;EOR^
         ;;KEY^860.9:^THROMBOPLASTIN TIME PARTIAL
         ;;R^"860.9:",.01,"E"
         ;;D^THROMBOPLASTIN TIME PARTIAL
         ;;R^"860.9:",.02,"E"
         ;;D^60
         ;;EOR^
         ;;KEY^860.9:^WBC
         ;;R^"860.9:",.01,"E"
         ;;D^WBC
         ;;R^"860.9:",.02,"E"
         ;;D^60
         ;;EOR^
         ;;EOF^OCXS(860.9)^1
         ;;SOF^860.8  ORDER CHECK COMPILER FUNCTIONS
         ;;KEY^860.8:^CONVERT DATE FROM FILEMAN FORMAT TO OCX FORMAT
         ;;R^"860.8:",.01,"E"
         ;;D^CONVERT DATE FROM FILEMAN FORMAT TO OCX FORMAT
         ;;R^"860.8:",.02,"E"
         ;;D^DT2INT
         ;;R^"860.8:",1,1
         ;;D^  ;DT2INT(OCXDT) ;      This Local Extrinsic Function converts a da
          te into an integer
         ;;R^"860.8:",1,2
         ;;D^  ; ; By taking the Years, Months, Days, Hours and Minutes converti
          ng
         ;;R^"860.8:",1,3
         ;;D^  ; ; Them into Seconds and then adding them all together into one 
          big integer
         ;;R^"860.8:",100,1
         ;;D^  ;DT2INT(OCXDT) ;      This Local Extrinsic Function converts a da
          te into an integer
         ;;R^"860.8:",100,2
         ;;D^  ; ; By taking the Years, Months, Days, Hours and Minutes converti
          ng
         ;;R^"860.8:",100,3
         ;;D^  ; ; Them into Seconds and then adding them all together into one 
          big integer
         ;;R^"860.8:",100,4
         ;;D^  ; ;
         ;;R^"860.8:",100,5
         ;;D^  ; Q:'$L($G(OCXDT)) ""
         ;;R^"860.8:",100,6
         ;;D^  ; N OCXDIFF,OCXVAL S (OCXDIFF,OCXVAL)=0
         ;;R^"860.8:",100,7
         ;;D^  ; ;
         ;;R^"860.8:",100,8
         ;;D^  ; I $L(OCXDT),'OCXDT,(OCXDT[" at ") D  ; EXTERNAL EXPERT SYSTEM F
          ORMAT 1 TO EXTERNAL FORMAT
         ;;R^"860.8:",100,9
         ;;D^  ; .N OCXHR,OCXMIN,OCXTIME
         ;;R^"860.8:",100,10
         ;;D^  ; .S OCXTIME=$P($P(OCXDT," at ",2),".",1),OCXHR=$P(OCXTIME,":",1)
          ,OCXMIN=$P(OCXTIME,":",2)
         ;;R^"860.8:",100,11
         ;;D^  ; .S:(OCXDT["Midnight") OCXHR=00
         ;;R^"860.8:",100,12
         ;;D^  ; .S:(OCXDT["PM") OCXHR=OCXHR+12
         ;;R^"860.8:",100,13
         ;;D^  ; .S OCXDT=$P(OCXDT," at ")_"@"_$E(OCXHR+100,2,3)_$E(OCXMIN+100,2
          ,3)
         ;;R^"860.8:",100,14
         ;;D^  ; ;
         ;;R^"860.8:",100,15
         ;;D^  ; I $L(OCXDT),(OCXDT?1.2N1"/"1.2N.1" ".2N.1":".2N) D  ; EXTERNAL 
          EXPERT SYSTEM FORMAT 2 TO EXTERNAL FORMAT
         ;;R^"860.8:",100,16
         ;;D^  ; .N OCXMON
         ;;R^"860.8:",100,17
         ;;D^  ; .S OCXMON=$P("January^February^March^April^May^June^July^August
          ^September^October^November^December",U,$P(OCXDT,"/",1))
         ;;R^"860.8:",100,18
         ;;D^  ; .I $L($P(OCXDT," ",2)) S OCXDT=OCXMON_" "_$P($P(OCXDT," ",1),"/
          ",2)_"@"_$TR($P(OCXDT," ",2),":","")
         ;;R^"860.8:",100,19
         ;;D^  ; .E  S OCXDT=OCXMON_" "_$P($P(OCXDT," ",1),"/",2)
         ;;R^"860.8:",100,20
         ;;D^  ; ;
         ;;R^"860.8:",100,21
         ;;D^  ; I $L(OCXDT),(OCXDT?1.2N1"/"1.2N1"/"1.2N.1" ".2N.1":".2N) D  ; E
          XTERNAL EXPERT SYSTEM FORMAT 3 TO EXTERNAL FORMAT
         ;;R^"860.8:",100,22
         ;;D^  ; .N OCXMON
         ;;R^"860.8:",100,23
         ;;D^  ; .S OCXMON=$P("January^February^March^April^May^June^July^August
          ^September^October^November^December",U,$P(OCXDT,"/",1))
         ;;R^"860.8:",100,24
         ;;D^  ; .I $L($P(OCXDT," ",2)) S OCXDT=OCXMON_" "_$P($P(OCXDT," ",1),"/
          ",2)_","_$P($P(OCXDT," ",1),"/",3)_"@"_$TR($P(OCXDT," ",2),":","")
         ;;R^"860.8:",100,25
         ;;D^  ; .E  S OCXDT=OCXMON_" "_$P($P(OCXDT," ",1),"/",2)_", "_$P($P(OCX
          DT," ",1),"/",3)
         ;;R^"860.8:",100,26
         ;;D^  ; ;
         ;;R^"860.8:",100,27
         ;;D^  ; I $L(OCXDT),'OCXDT D  ; EXTERNAL FORMAT TO INTERNAL FILEMAN FOR
          MAT
         ;;R^"860.8:",100,28
         ;;D^  ; .I (OCXDT["@0000") S OCXDT=$P(OCXDT,"@",1),OCXDIFF=1
         ;;R^"860.8:",100,29
         ;;D^  ; .N %DT,X,Y S X=OCXDT,%DT="" S:(OCXDT["@")!(OCXDT="N") %DT="T" D
           ^%DT S OCXDT=+Y
         ;;R^"860.8:",100,30
         ;;D^  ; ;
         ;;R^"860.8:",100,31
         ;;D^  ; I ($L(OCXDT\1)>7) S OCXDT=$$HL7TFM^XLFDT(OCXDT)  ; HL7 FORMAT T
          O INTERNAL FILEMAN FORMAT
         ;;R^"860.8:",100,32
         ;;D^  ; ;
         ;;R^"860.8:",100,33
         ;;D^  ; I ($L(OCXDT\1)=7) S OCXDT=$$FMTH^XLFDT(+OCXDT)   ; INTERNAL FIL
          EMAN FORMAT TO $H FORMAT
         ;;R^"860.8:",100,34
         ;;D^  ; ;
         ;;R^"860.8:",100,35
         ;;D^  ; I (OCXDT?5N1","1.5N) S OCXVAL=(OCXDT*86400)+$P(OCXDT,",",2)    
           ;  $H FORMAT TO EXPERT SYSTEM INTERNAL FORMAT
         ;;R^"860.8:",100,36
         ;;D^  ; ;
         ;;R^"860.8:",100,37
         ;;D^  ; Q OCXVAL
         ;;R^"860.8:",100,38
         ;;D^  ; ;
         ;;EOR^
         ;;KEY^860.8:^CONVERT DATE FROM OCX FORMAT TO READABLE FORMAT
         ;;R^"860.8:",.01,"E"
         ;;D^CONVERT DATE FROM OCX FORMAT TO READABLE FORMAT
         ;;R^"860.8:",.02,"E"
         ;;D^INT2DT
         ;;R^"860.8:",1,1
         ;;D^  ;INT2DT(OCXDT,OCXF) ;      This Local Extrinsic Function converts
           an OCX internal format
         ;1;
         ;

*****   INDEX OF ORY42704   *****


Local Variables      Line Occurrences   ( >> not killed explicitly)
                                        ( * Changed  ! Killed  ~ Newed)
>> LINE         S+6*
   LOCAL        S+5!
   OPCODE       S+5!
>> QUIT         S+6
   REF          S+5!
   REMOTE       S+5!
>> TEXT         S+6*,S+7

Global Variables  ( * Changed  ! Killed)
   ^TMP("OCXRULE"      S+7*

Naked Globals
   NONE

Cache Objects
   NONE

Marked Items
   $T(DATA+LINE S+6

Label References
   NONE

External References
   ^ORY42705           S+9
   DOT^ORY427ES        S+2

*****   END   *****

   Press return to continue:

























ORY42705 * *  228 Lines,  7557 Bytes, Checksum: B60288831
                                                  Jun 16, 2016@07:08:53 page 8
              120 bytes in comments
ORY42705 ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install
           of OR*3*427) ;MAY 10,2016 at 13:31
         ;;3.0;ORDER ENTRY/RESULTS REPORTING;**427**;Dec 17,1997;Build 242
         ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
         ;
S        ;
         ;
         D DOT^ORY427ES
         ;
         ;
         K REMOTE,LOCAL,OPCODE,REF
         F LINE=1:1:500 S TEXT=$P($T(DATA+LINE),";",2,999) Q:TEXT  I $L(TEXT) D 
           Q:QUIT
         .S ^TMP("OCXRULE",$J,$O(^TMP("OCXRULE",$J,"A"),-1)+1)=TEXT
         ;
         G ^ORY42706
         ;
         Q
         ;
DATA     ;
         ;
         ;;R^"860.8:",1,2
         ;;D^  ; ; date into an Externl Format (Human Readable) date.   'OCXF=SH
          ORT FORMAT OCXF=LONG FORMAT
         ;;R^"860.8:",1,3
         ;;D^  ; ;
         ;;R^"860.8:",100,1
         ;;D^  ;INT2DT(OCXDT,OCXF) ;      This Local Extrinsic Function converts
           an OCX internal format
         ;;R^"860.8:",100,2
         ;;D^  ; ; date into an Externl Format (Human Readable) date.   'OCXF=SH
          ORT FORMAT OCXF=LONG FORMAT
         ;;R^"860.8:",100,3
         ;;D^  ; ;
         ;;R^"860.8:",100,4
         ;;D^  ; Q:'$L($G(OCXDT)) "" S OCXF=+$G(OCXF)
         ;;R^"860.8:",100,5
         ;;D^  ; N OCXYR,OCXLPYR,OCXMON,OCXDAY,OCXHR,OCXMIN,OCXSEC,OCXCYR
         ;;R^"860.8:",100,6
         ;;D^  ; S (OCXYR,OCXLPYR,OCXMON,OCXDAY,OCXHR,OCXMIN,OCXSEC,OCXAP)=""
         ;;R^"860.8:",100,7
         ;;D^  ; S OCXSEC=$E(OCXDT#60+100,2,3),OCXDT=OCXDT\60
         ;;R^"860.8:",100,8
         ;;D^  ; S OCXMIN=$E(OCXDT#60+100,2,3),OCXDT=OCXDT\60
         ;;R^"860.8:",100,9
         ;;D^  ; S OCXHR=$E(OCXDT#24+100,2,3),OCXDT=OCXDT\24
         ;;R^"860.8:",100,10
         ;;D^  ; S OCXCYR=($H\1461)*4+1841+(($H#1461)\365)
         ;;R^"860.8:",100,11
         ;;D^  ; S OCXYR=(OCXDT\1461)*4+1841,OCXDT=OCXDT#1461
         ;;R^"860.8:",100,12
         ;;D^  ; S OCXLPYR=(OCXDT\365),OCXDT=OCXDT-(OCXLPYR*365),OCXYR=OCXYR+OCX
          LPYR
         ;;R^"860.8:",100,13
         ;;D^  ; S OCXCNT="031^059^090^120^151^181^212^243^273^304^334^365"
         ;;R^"860.8:",100,14
         ;;D^  ; S:(OCXLPYR=3) OCXCNT="031^060^091^121^152^182^213^244^274^305^3
          35^366"
         ;;R^"860.8:",100,15
         ;;D^  ; F OCXMON=1:1:12 Q:(OCXDT<$P(OCXCNT,U,OCXMON))
         ;;R^"860.8:",100,16
         ;;D^  ; S OCXDAY=OCXDT-$P(OCXCNT,U,OCXMON-1)+1
         ;;R^"860.8:",100,17
         ;;D^  ; I OCXF S OCXMON=$P("January^February^March^April^May^June^July^
          August^September^October^November^December",U,OCXMON)
         ;;R^"860.8:",100,18
         ;;D^  ; E  S OCXMON=$E(OCXMON+100,2,3)
         ;;R^"860.8:",100,19
         ;;D^  ; S OCXAP=$S('OCXHR:"Midnight",(OCXHR=12):"Noon",(OCXHR<12):"AM",
          1:"PM")
         ;;R^"860.8:",100,20
         ;;D^  ; I OCXF S OCXHR=OCXHR#12 S:'OCXHR OCXHR=12
         ;;R^"860.8:",100,21
         ;;D^  ; Q:'OCXF $E(OCXMON+100,2,3)_"/"_$E(OCXDAY+100,2,3)_$S((OCXCYR=OC
          XYR):" "_OCXHR_":"_OCXMIN,1:"/"_$E(OCXYR,3,4))
         ;;R^"860.8:",100,22
         ;;D^  ; Q:(OCXHR+OCXMIN+OCXSEC) OCXMON_" "_OCXDAY_","_OCXYR_" at "_OCXH
          R_":"_OCXMIN_"."_OCXSEC_" "_OCXAP
         ;;R^"860.8:",100,23
         ;;D^  ; Q OCXMON_" "_OCXDAY_","_OCXYR
         ;;R^"860.8:",100,24
         ;;D^  ; ;
         ;;EOR^
         ;;KEY^860.8:^ELAPSED ORDER CHECK TIME LOGGER
         ;;R^"860.8:",.01,"E"
         ;;D^ELAPSED ORDER CHECK TIME LOGGER
         ;;R^"860.8:",.02,"E"
         ;;D^TIMELOG
         ;;R^"860.8:",100,1
         ;;D^  ;TIMELOG(OCXMODE,OCXCALL) ; Log an entry in the Elapsed time log.
         ;;R^"860.8:",100,2
         ;;D^  ; ;
         ;;R^"860.8:",100,3
         ;;D^  ; ;
         ;;R^"860.8:",100,4
         ;;D^  ; Q 0
         ;;R^"860.8:",100,5
         ;;D^  ; ;
         ;;EOR^
         ;;KEY^860.8:^EQUALS TERM OPERATOR
         ;;R^"860.8:",.01,"E"
         ;;D^EQUALS TERM OPERATOR
         ;;R^"860.8:",.02,"E"
         ;;D^EQTERM
         ;;R^"860.8:",100,1
         ;;D^  ;EQTERM(DATA,TERM) ;
         ;;R^"860.8:",100,2
         ;;D^  ; ;
         ;;R^"860.8:",100,3
         ;;D^T+; I $G(OCXTRACE) W !,"%%%%",?20," Execution trace  DATA: ",$G(DAT
          A),"   TERM: ",$G(TERM)
         ;;R^"860.8:",100,4
         ;;D^  ; N OCXF,OCXL
         ;;R^"860.8:",100,5
         ;;D^  ; ;
         ;;R^"860.8:",100,6
         ;;D^  ; S OCXL="",OCXF=$$TERMLKUP(TERM,.OCXL)
         ;;R^"860.8:",100,7
         ;;D^T-; Q:'OCXF 0
         ;;R^"860.8:",100,8
         ;;D^T+; I 'OCXF W:$G(OCXTRACE) !,"%%%%",?20," Term '",TERM,"' not in Or
          der Check National Term File" Q 0
         ;;R^"860.8:",100,9
         ;;D^T+; I '$O(OCXL(0)) W:$G(OCXTRACE) !,"%%%%",?20," There are no local
           terms listed for the National Term '",TERM,"'." Q 0
         ;;R^"860.8:",100,10
         ;;D^T+; I ($D(OCXL(DATA))!$D(OCXL("B",DATA))) W:$G(OCXTRACE) !,"%%%%",?
          20," Data equals Term" Q 1
         ;;R^"860.8:",100,11
         ;;D^T-; I ($D(OCXL(DATA))!$D(OCXL("B",DATA))) Q 1
         ;;R^"860.8:",100,12
         ;;D^T-; Q 0
         ;;R^"860.8:",100,13
         ;;D^T+; W:$G(OCXTRACE) !,"%%%%",?20," Data does not equal Term" Q 0
         ;;R^"860.8:",100,14
         ;;D^  ; ;
         ;;EOR^
         ;;KEY^860.8:^FILE DATA IN PATIENT ACTIVE DATA FILE
         ;;R^"860.8:",.01,"E"
         ;;D^FILE DATA IN PATIENT ACTIVE DATA FILE
         ;;R^"860.8:",.02,"E"
         ;;D^FILE
         ;;R^"860.8:",1,1
         ;;D^  ;FILE(DFN,OCXELE,OCXDFL) ;     This Local Extrinsic Function file
          s data
         ;;R^"860.8:",1,2
         ;;D^  ; ;     in the Order Check Patient Data File
         ;;R^"860.8:",1,3
         ;;D^  ; ;
         ;;R^"860.8:",100,1
         ;;D^  ;FILE(DFN,OCXELE,OCXDFL) ;     This Local Extrinsic Function logs
           a validated event/element.
         ;;R^"860.8:",100,2
         ;;D^  ; ;
         ;;R^"860.8:",100,3
         ;;D^T+; I $G(OCXTRACE) W !,"%%%%",?20," Execution trace  DFN: ",DFN,"  
           OCXELE: ",+$G(OCXELE),"   OCXDFL: ",$G(OCXDFL)
         ;;R^"860.8:",100,4
         ;;D^  ; N OCXTIMN,OCXTIML,OCXTIMT1,OCXTIMT2,OCXDATA,OCXPC,OCXPC,OCXVAL,
          OCXSUB,OCXDFI
         ;;R^"860.8:",100,5
         ;;D^  ; S DFN=+$G(DFN),OCXELE=+$G(OCXELE)
         ;;R^"860.8:",100,6
         ;;D^  ; ;
         ;;R^"860.8:",100,7
         ;;D^  ; Q:'DFN 1 Q:'OCXELE 1 K OCXDATA
         ;;R^"860.8:",100,8
         ;;D^  ; ;
         ;;R^"860.8:",100,9
         ;;D^  ; S OCXDATA(DFN,OCXELE)=1
         ;;R^"860.8:",100,10
         ;;D^  ; F OCXPC=1:1:$L(OCXDFL,",") S OCXDFI=$P(OCXDFL,",",OCXPC) I OCXD
          FI D
         ;;R^"860.8:",100,11
         ;;D^  ; .S OCXVAL=$G(OCXDF(+OCXDFI)),OCXDATA(DFN,OCXELE,+OCXDFI)=OCXVAL
         ;;R^"860.8:",100,12
         ;;D^T+; .I $G(OCXTRACE) W !,"%%%%",?20,"   ",$P($G(^OCXS(860.4,+OCXDFI,
          0)),U,1)," = """,OCXVAL,""""
         ;;R^"860.8:",100,13
         ;;D^  ; ;
         ;;R^"860.8:",100,14
         ;;D^  ; M ^TMP("OCXCHK",$J,DFN)=OCXDATA(DFN)
         ;;R^"860.8:",100,15
         ;;D^  ; ;
         ;;R^"860.8:",100,16
         ;;D^  ; Q 0
         ;;R^"860.8:",100,17
         ;;D^  ; ;
         ;;EOR^
         ;;KEY^860.8:^GENERATE STRING CHECKSUM
         ;;R^"860.8:",.01,"E"
         ;;D^GENERATE STRING CHECKSUM
         ;;R^"860.8:",.02,"E"
         ;;D^CKSUM
         ;;R^"860.8:",100,1
         ;;D^  ;CKSUM(STR) ;
         ;;R^"860.8:",100,2
         ;;D^  ; ;
         ;;R^"860.8:",100,3
         ;;D^  ; N CKSUM,PTR,ASC S CKSUM=0
         ;;R^"860.8:",100,4
         ;;D^  ; S STR=$TR(STR,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRS
          TUVWXYZ")
         ;;R^"860.8:",100,5
         ;;D^  ; F PTR=$L(STR):-1:1 S ASC=$A(STR,PTR)-42 I (ASC>0),(ASC<51) S CK
          SUM=CKSUM*2+ASC
         ;;R^"860.8:",100,6
         ;;D^  ; Q +CKSUM
         ;;R^"860.8:",100,7
         ;;D^  ; ;
         ;;EOR^
         ;;KEY^860.8:^GET DATA FROM THE ACTIVE DATA FILE
         ;;R^"860.8:",.01,"E"
         ;;D^GET DATA FROM THE ACTIVE DATA FILE
         ;;R^"860.8:",.02,"E"
         ;;D^GETDATA
         ;;R^"860.8:",100,1
         ;;D^  ;GETDATA(DFN,OCXL,OCXDFI) ;     This Local Extrinsic Function ret
          urns runtime data
         ;;R^"860.8:",100,2
         ;;D^  ; ;
         ;;R^"860.8:",100,3
         ;;D^  ; N OCXE,VAL,PC S VAL=""
         ;;R^"860.8:",100,4
         ;;D^  ; F PC=1:1:$L(OCXL,U) S OCXE=$P(OCXL,U,PC) I OCXE S VAL=$G(^TMP("
          OCXCHK",$J,DFN,OCXE,OCXDFI)) Q:$L(VAL)
         ;;R^"860.8:",100,5
         ;;D^  ; Q VAL
         ;;R^"860.8:",100,6
         ;;D^  ; ;
         ;;EOR^
         ;;KEY^860.8:^IN LIST OPERATOR
         ;;R^"860.8:",.01,"E"
         ;;D^IN LIST OPERATOR
         ;;R^"860.8:",.02,"E"
         ;;D^LIST
         ;;R^"860.8:",100,1
         ;;D^  ;LIST(DATA,LIST) ;   IS THE DATA FIELD IN THE LIST
         ;;R^"860.8:",100,2
         ;;D^  ; ;
         ;;R^"860.8:",100,3
         ;;D^T+; W:$G(OCXTRACE) !,"%%%%",?20,"     $$LIST(""",DATA,""",""",LIST,
          """)"
         ;;R^"860.8:",100,4
         ;;D^  ; S:'($E(LIST,1)=",") LIST=","_LIST S:'($E(LIST,$L(LIST))=",") LI
          ST=LIST_"," S DATA=","_DATA_","
         ;;R^"860.8:",100,5
         ;;D^  ; Q (LIST[DATA)
         ;;R^"860.8:",100,6
         ;;D^  ; ;
         ;;EOR^
         ;;KEY^860.8:^LOCAL TERM LOOKUP
         ;;R^"860.8:",.01,"E"
         ;1;
         ;

*****   INDEX OF ORY42705   *****


Local Variables      Line Occurrences   ( >> not killed explicitly)
                                        ( * Changed  ! Killed  ~ Newed)
>> LINE         S+6*
   LOCAL        S+5!
   OPCODE       S+5!
>> QUIT         S+6
   REF          S+5!
   REMOTE       S+5!
>> TEXT         S+6*,S+7

Global Variables  ( * Changed  ! Killed)
   ^TMP("OCXRULE"      S+7*

Naked Globals
   NONE

Cache Objects
   NONE

Marked Items
   $T(DATA+LINE S+6

Label References
   NONE

External References
   ^ORY42706           S+9
   DOT^ORY427ES        S+2

*****   END   *****

   Press return to continue:

























ORY42706 * *  243 Lines,  7632 Bytes, Checksum: B65663010
                                                  Jun 16, 2016@07:08:53 page 9
              120 bytes in comments
ORY42706 ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install
           of OR*3*427) ;MAY 10,2016 at 13:31
         ;;3.0;ORDER ENTRY/RESULTS REPORTING;**427**;Dec 17,1997;Build 242
         ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
         ;
S        ;
         ;
         D DOT^ORY427ES
         ;
         ;
         K REMOTE,LOCAL,OPCODE,REF
         F LINE=1:1:500 S TEXT=$P($T(DATA+LINE),";",2,999) Q:TEXT  I $L(TEXT) D 
           Q:QUIT
         .S ^TMP("OCXRULE",$J,$O(^TMP("OCXRULE",$J,"A"),-1)+1)=TEXT
         ;
         G ^ORY42707
         ;
         Q
         ;
DATA     ;
         ;
         ;;D^LOCAL TERM LOOKUP
         ;;R^"860.8:",.02,"E"
         ;;D^TERMLKUP
         ;;R^"860.8:",1,1
         ;;D^ 
         ;;R^"860.8:",1,2
         ;;D^  This function allows a local site to define to Order Checking
         ;;R^"860.8:",1,3
         ;;D^ a term specific to that site. (ie. Lab Test Name, Radiology
         ;;R^"860.8:",1,4
         ;;D^ procedure name, etc.)
         ;;R^"860.8:",1,5
         ;;D^ 
         ;;R^"860.8:",100,1
         ;;D^  ;TERMLKUP(OCXTERM,OCXFILE) ;
         ;;R^"860.8:",100,2
         ;;D^  ; ;
         ;;R^"860.8:",100,3
         ;;D^  ; Q
         ;;R^"860.8:",100,4
         ;;D^  ; ;
         ;;EOR^
         ;;KEY^860.8:^NEW RULE MESSAGE
         ;;R^"860.8:",.01,"E"
         ;;D^NEW RULE MESSAGE
         ;;R^"860.8:",.02,"E"
         ;;D^NEWRULE
         ;;R^"860.8:",100,1
         ;;D^  ;NEWRULE(OCXDFN,OCXORD,OCXRUL,OCXREL,OCXNOTF,OCXMESS) ; Has this 
          rule already been triggered for this order number
         ;;R^"860.8:",100,2
         ;;D^  ; ;
         ;;R^"860.8:",100,3
         ;;D^L+; S OCXERR=$$TIMELOG("M","NEWRULE("_(+$G(OCXDFN))_","_(+$G(OCXORD
          ))_","_(+$G(OCXRUL))_","_(+$G(OCXREL))_","_(+$G(OCXNOTF))_","_$G(OCXME
          SS)_")")
         ;;R^"860.8:",100,4
         ;;D^  ; ;
         ;;R^"860.8:",100,5
         ;;D^  ; Q:'$G(OCXDFN) 0 Q:'$G(OCXRUL) 0
         ;;R^"860.8:",100,6
         ;;D^  ; Q:'$G(OCXREL) 0  Q:'$G(OCXNOTF) 0  Q:'$L($G(OCXMESS)) 0
         ;;R^"860.8:",100,7
         ;;D^  ; S OCXORD=+$G(OCXORD),OCXDFN=+OCXDFN
         ;;R^"860.8:",100,8
         ;;D^  ; ;
         ;;R^"860.8:",100,9
         ;;D^  ; N OCXNDX,OCXDATA,OCXDFI,OCXELE,OCXGR,OCXTIME,OCXCKSUM,OCXTSP,OC
          XTSPL
         ;;R^"860.8:",100,10
         ;;D^  ; ;
         ;;R^"860.8:",100,11
         ;;D^  ; S OCXTIME=(+$H)
         ;;R^"860.8:",100,12
         ;;D^  ; S OCXCKSUM=$$CKSUM(OCXMESS)
         ;;R^"860.8:",100,13
         ;;D^  ; ;
         ;;R^"860.8:",100,14
         ;;D^  ; S OCXTSP=($H*86400)+$P($H,",",2)
         ;;R^"860.8:",100,15
         ;;D^  ; S OCXTSPL=($G(^OCXD(860.7,"AT",OCXTIME,OCXDFN,OCXRUL,+OCXORD,OC
          XCKSUM))+$G(OCXTSPI,300))
         ;;R^"860.8:",100,16
         ;;D^  ; ;
         ;;R^"860.8:",100,17
         ;;D^  ; Q:(OCXTSPL>OCXTSP) 0
         ;;R^"860.8:",100,18
         ;;D^  ; ;
         ;;R^"860.8:",100,19
         ;;D^  ; K OCXDATA
         ;;R^"860.8:",100,20
         ;;D^  ; S OCXDATA(OCXDFN,0)=OCXDFN
         ;;R^"860.8:",100,21
         ;;D^  ; S OCXDATA("B",OCXDFN,OCXDFN)=""
         ;;R^"860.8:",100,22
         ;;D^  ; S OCXDATA("AT",OCXTIME,OCXDFN,OCXRUL,+OCXORD,OCXCKSUM)=OCXTSP
         ;;R^"860.8:",100,23
         ;;D^  ; ;
         ;;R^"860.8:",100,24
         ;;D^  ; S OCXGR="^OCXD(860.7"
         ;;R^"860.8:",100,25
         ;;D^T+; D SETAP(OCXGR_")",0,"Patient",$P($G(^DPT(OCXDFN,0)),U,1),.OCXDA
          TA,OCXDFN)
         ;;R^"860.8:",100,26
         ;;D^T-; D SETAP(OCXGR_")",0,.OCXDATA,OCXDFN)
         ;;R^"860.8:",100,27
         ;;D^  ; ;
         ;;R^"860.8:",100,28
         ;;D^  ; K OCXDATA
         ;;R^"860.8:",100,29
         ;;D^  ; S OCXDATA(OCXRUL,0)=OCXRUL_U_(OCXTIME)_U_(+OCXORD)
         ;;R^"860.8:",100,30
         ;;D^  ; S OCXDATA(OCXRUL,"M")=OCXMESS
         ;;R^"860.8:",100,31
         ;;D^  ; S OCXDATA("B",OCXRUL,OCXRUL)=""
         ;;R^"860.8:",100,32
         ;;D^  ; S OCXGR=OCXGR_","_OCXDFN_",1"
         ;;R^"860.8:",100,33
         ;;D^T+; D SETAP(OCXGR_")","860.71P","Rule",$P($G(^OCXS(860.2,OCXRUL,0))
          ,U,1),.OCXDATA,OCXRUL)
         ;;R^"860.8:",100,34
         ;;D^T-; D SETAP(OCXGR_")","860.71P",.OCXDATA,OCXRUL)
         ;;R^"860.8:",100,35
         ;;D^  ; ;
         ;;R^"860.8:",100,36
         ;;D^  ; K OCXDATA
         ;;R^"860.8:",100,37
         ;;D^  ; S OCXDATA(OCXREL,0)=OCXREL
         ;;R^"860.8:",100,38
         ;;D^  ; S OCXDATA("B",OCXREL,OCXREL)=""
         ;;R^"860.8:",100,39
         ;;D^  ; S OCXGR=OCXGR_","_OCXRUL_",1"
         ;;R^"860.8:",100,40
         ;;D^T+; D SETAP(OCXGR_")","860.712","Relation",OCXREL,.OCXDATA,OCXREL)
         ;;R^"860.8:",100,41
         ;;D^T-; D SETAP(OCXGR_")","860.712",.OCXDATA,OCXREL)
         ;;R^"860.8:",100,42
         ;;D^  ; ;
         ;;R^"860.8:",100,43
         ;;D^  ; S OCXELE=0 F  S OCXELE=$O(^OCXS(860.2,OCXRUL,"C","C",OCXELE)) Q
          :'OCXELE  D
         ;;R^"860.8:",100,44
         ;;D^  ; .;
         ;;R^"860.8:",100,45
         ;;D^  ; .N OCXGR1
         ;;R^"860.8:",100,46
         ;;D^  ; .S OCXGR1=OCXGR_","_OCXREL_",1"
         ;;R^"860.8:",100,47
         ;;D^  ; .K OCXDATA
         ;;R^"860.8:",100,48
         ;;D^  ; .S OCXDATA(OCXELE,0)=OCXELE
         ;;R^"860.8:",100,49
         ;;D^  ; .S OCXDATA(OCXELE,"TIME")=OCXTIME
         ;;R^"860.8:",100,50
         ;;D^  ; .S OCXDATA(OCXELE,"LOG")=$G(OCXOLOG)
         ;;R^"860.8:",100,51
         ;;D^  ; .S OCXDATA("B",OCXELE,OCXELE)=""
         ;;R^"860.8:",100,52
         ;;D^  ; .K ^OCXD(860.7,OCXDFN,1,OCXRUL,1,OCXREL,1,OCXELE)
         ;;R^"860.8:",100,53
         ;;D^T+; .D SETAP(OCXGR1_")","860.7122P","Element",$P($G(^OCXS(860.3,OCX
          ELE,0)),U,1),.OCXDATA,OCXELE)
         ;;R^"860.8:",100,54
         ;;D^T-; .D SETAP(OCXGR1_")","860.7122P",.OCXDATA,OCXELE)
         ;;R^"860.8:",100,55
         ;;D^  ; .;
         ;;R^"860.8:",100,56
         ;;D^  ; .S OCXDFI=0 F  S OCXDFI=$O(^TMP("OCXCHK",$J,OCXDFN,OCXELE,OCXDF
          I)) Q:'OCXDFI  D
         ;;R^"860.8:",100,57
         ;;D^  ; ..N OCXGR2
         ;;R^"860.8:",100,58
         ;;D^  ; ..S OCXGR2=OCXGR1_","_OCXELE_",1"
         ;;R^"860.8:",100,59
         ;;D^  ; ..K OCXDATA
         ;;R^"860.8:",100,60
         ;;D^  ; ..S OCXDATA(OCXDFI,0)=OCXDFI
         ;;R^"860.8:",100,61
         ;;D^  ; ..S OCXDATA(OCXDFI,"VAL")=^TMP("OCXCHK",$J,OCXDFN,OCXELE,OCXDFI
          )
         ;;R^"860.8:",100,62
         ;;D^  ; ..S OCXDATA("B",OCXDFI,OCXDFI)=""
         ;;R^"860.8:",100,63
         ;;D^T+; ..D SETAP(OCXGR2_")","860.71223P","Data Field",$P($G(^OCXS(860.
          4,OCXDFI,0)),U,1),.OCXDATA,OCXDFI)
         ;;R^"860.8:",100,64
         ;;D^T-; ..D SETAP(OCXGR2_")","860.71223P",.OCXDATA,OCXDFI)
         ;;R^"860.8:",100,65
         ;;D^  ; ;
         ;;R^"860.8:",100,66
         ;;D^  ; Q 1
         ;;R^"860.8:",100,67
         ;;D^  ; ;
         ;;R^"860.8:",100,68
         ;;D^T+;SETAP(ROOT,DD,ITEM,ITEMNAME,DATA,DA) ;  Set Rule Event data
         ;;R^"860.8:",100,69
         ;;D^T-;SETAP(ROOT,DD,DATA,DA) ;  Set Rule Event data
         ;;R^"860.8:",100,70
         ;;D^  ; M @ROOT=DATA
         ;;R^"860.8:",100,71
         ;;D^  ; I +$G(DD) S @ROOT@(0)="^"_($G(DD))_"^"_($P($G(@ROOT@(0)),U,3)+1
          )_"^"_$G(DA)
         ;;R^"860.8:",100,72
         ;;D^  ; I '$G(DD) S $P(@ROOT@(0),U,3,4)=($P($G(@ROOT@(0)),U,3)+1)_"^"_$
          G(DA)
         ;;R^"860.8:",100,73
         ;;D^T+; W:$G(OCXTRACE) !,"File Active Data ",$G(ITEM),": ",$G(ITEMNAME)
         ;;R^"860.8:",100,74
         ;;D^  ; ;
         ;;R^"860.8:",100,75
         ;;D^  ; Q
         ;;R^"860.8:",100,76
         ;;D^  ; ;
         ;;R^"860.8:",100,77
         ;;D^  ; ;
         ;;EOR^
         ;;KEY^860.8:^RETURN POINTED TO VALUE
         ;;R^"860.8:",.01,"E"
         ;;D^RETURN POINTED TO VALUE
         ;;R^"860.8:",.02,"E"
         ;;D^POINTER
         ;;R^"860.8:",1,1
         ;;D^  ;POINTER(OCXFILE,D0) ;    This Local Extrinsic Function gets the 
          value of the name field
         ;;R^"860.8:",1,2
         ;;D^  ; ;  of record D0 in file OCXFILE
         ;;R^"860.8:",100,1
         ;;D^  ;POINTER(OCXFILE,D0) ;    This Local Extrinsic Function gets the 
          value of the name field
         ;;R^"860.8:",100,2
         ;;D^  ; ;  of record D0 in file OCXFILE
         ;;R^"860.8:",100,3
         ;;D^T+; I $G(OCXTRACE) W !,"%%%%",?20,"   FILE: ",$G(OCXFILE),"  D0: ",
          $G(D0)
         ;;R^"860.8:",100,4
         ;;D^  ; Q:'$G(D0) "" Q:'$L($G(OCXFILE)) ""
         ;;R^"860.8:",100,5
         ;;D^  ; N GLREF
         ;;R^"860.8:",100,6
         ;;D^  ; I '(OCXFILE=(+OCXFILE)) S GLREF=U_OCXFILE
         ;;R^"860.8:",100,7
         ;;D^  ; E  S GLREF=$$FILE^OCXBDTD(+OCXFILE,"GLOBAL NAME") Q:'$L(GLREF) 
          ""
         ;;R^"860.8:",100,8
         ;;D^T+; I $G(OCXTRACE) W !,"%%%%",?20," GLREF: ",GLREF,"  RESOLVES TO: 
          ",$P($G(@(GLREF_(+D0)_",0)")),U,1)
         ;;R^"860.8:",100,9
         ;;D^  ; Q $P($G(@(GLREF_(+D0)_",0)")),U,1)
         ;;R^"860.8:",100,10
         ;;D^  ; ;
         ;;EOR^
         ;;KEY^860.8:^STRING CONTAINS ONE OF A LIST OF VALUES
         ;;R^"860.8:",.01,"E"
         ;;D^STRING CONTAINS ONE OF A LIST OF VALUES
         ;;R^"860.8:",.02,"E"
         ;;D^CLIST
         ;;R^"860.8:",100,1
         ;;D^  ;CLIST(DATA,LIST) ;   DOES THE DATA FIELD CONTAIN AN ELEMENT IN T
          HE LIST
         ;;R^"860.8:",100,2
         ;;D^  ; ;
         ;;R^"860.8:",100,3
         ;1;
         ;

*****   INDEX OF ORY42706   *****


Local Variables      Line Occurrences   ( >> not killed explicitly)
                                        ( * Changed  ! Killed  ~ Newed)
>> LINE         S+6*
   LOCAL        S+5!
   OPCODE       S+5!
>> QUIT         S+6
   REF          S+5!
   REMOTE       S+5!
>> TEXT         S+6*,S+7

Global Variables  ( * Changed  ! Killed)
   ^TMP("OCXRULE"      S+7*

Naked Globals
   NONE

Cache Objects
   NONE

Marked Items
   $T(DATA+LINE S+6

Label References
   NONE

External References
   ^ORY42707           S+9
   DOT^ORY427ES        S+2

*****   END   *****

   Press return to continue:

























ORY42707 * *  279 Lines,  7802 Bytes, Checksum: B69514019
                                                  Jun 16, 2016@07:08:53 page 10
              120 bytes in comments
ORY42707 ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install
           of OR*3*427) ;MAY 10,2016 at 13:31
         ;;3.0;ORDER ENTRY/RESULTS REPORTING;**427**;Dec 17,1997;Build 242
         ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
         ;
S        ;
         ;
         D DOT^ORY427ES
         ;
         ;
         K REMOTE,LOCAL,OPCODE,REF
         F LINE=1:1:500 S TEXT=$P($T(DATA+LINE),";",2,999) Q:TEXT  I $L(TEXT) D 
           Q:QUIT
         .S ^TMP("OCXRULE",$J,$O(^TMP("OCXRULE",$J,"A"),-1)+1)=TEXT
         ;
         G ^ORY42708
         ;
         Q
         ;
DATA     ;
         ;
         ;;D^T+; W:$G(OCXTRACE) !!,"$$CLIST(",DATA,",""",LIST,""")"
         ;;R^"860.8:",100,4
         ;;D^  ; N PC F PC=1:1:$L(LIST,","),0 I PC,$L($P(LIST,",",PC)),(DATA[$P(
          LIST,",",PC)) Q
         ;;R^"860.8:",100,5
         ;;D^  ; Q ''PC
         ;;EOR^
         ;;EOF^OCXS(860.8)^1
         ;;SOF^860.6  ORDER CHECK DATA CONTEXT
         ;;KEY^860.6:^CPRS ORDER PRESCAN
         ;;R^"860.6:",.01,"E"
         ;;D^CPRS ORDER PRESCAN
         ;;R^"860.6:",.02,"E"
         ;;D^OEPS
         ;;R^"860.6:",1,"E"
         ;;D^DATA DRIVEN
         ;;EOR^
         ;;KEY^860.6:^CPRS ORDER PROTOCOL
         ;;R^"860.6:",.01,"E"
         ;;D^CPRS ORDER PROTOCOL
         ;;R^"860.6:",.02,"E"
         ;;D^OERR
         ;;R^"860.6:",1,"E"
         ;;D^DATA DRIVEN
         ;;EOR^
         ;;KEY^860.6:^DATABASE LOOKUP
         ;;R^"860.6:",.01,"E"
         ;;D^DATABASE LOOKUP
         ;;R^"860.6:",.02,"E"
         ;;D^DL
         ;;R^"860.6:",1,"E"
         ;;D^PACKAGE LOOKUP
         ;;EOR^
         ;;KEY^860.6:^GENERIC HL7 MESSAGE ARRAY
         ;;R^"860.6:",.01,"E"
         ;;D^GENERIC HL7 MESSAGE ARRAY
         ;;R^"860.6:",.02,"E"
         ;;D^HL7
         ;;R^"860.6:",1,"E"
         ;;D^DATA DRIVEN
         ;;EOR^
         ;;EOF^OCXS(860.6)^1
         ;;SOF^860.5  ORDER CHECK DATA SOURCE
         ;;KEY^860.5:^DATABASE LOOKUP
         ;;R^"860.5:",.01,"E"
         ;;D^DATABASE LOOKUP
         ;;R^"860.5:",.02,"E"
         ;;D^DATABASE LOOKUP
         ;;EOR^
         ;;KEY^860.5:^HL7 COMMON ORDER SEGMENT
         ;;R^"860.5:",.01,"E"
         ;;D^HL7 COMMON ORDER SEGMENT
         ;;R^"860.5:",.02,"E"
         ;;D^GENERIC HL7 MESSAGE ARRAY
         ;;EOR^
         ;;KEY^860.5:^HL7 PATIENT ID SEGMENT
         ;;R^"860.5:",.01,"E"
         ;;D^HL7 PATIENT ID SEGMENT
         ;;R^"860.5:",.02,"E"
         ;;D^GENERIC HL7 MESSAGE ARRAY
         ;;EOR^
         ;;KEY^860.5:^OERR ORDER EVENT FLAG PROTOCOL
         ;;R^"860.5:",.01,"E"
         ;;D^OERR ORDER EVENT FLAG PROTOCOL
         ;;R^"860.5:",.02,"E"
         ;;D^CPRS ORDER PROTOCOL
         ;;EOR^
         ;;KEY^860.5:^ORDER ENTRY ORDER PRESCAN
         ;;R^"860.5:",.01,"E"
         ;;D^ORDER ENTRY ORDER PRESCAN
         ;;R^"860.5:",.02,"E"
         ;;D^CPRS ORDER PRESCAN
         ;;EOR^
         ;;EOF^OCXS(860.5)^1
         ;;SOF^860.4  ORDER CHECK DATA FIELD
         ;;KEY^860.4:^CLOZAPINE ANC W/IN 7 FLAG
         ;;R^"860.4:",.01,"E"
         ;;D^CLOZAPINE ANC W/IN 7 FLAG
         ;;R^"860.4:",1,"E"
         ;;D^CLOZ ANC FLAG
         ;;R^"860.4:",101,"E"
         ;;D^BOOLEAN
         ;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",.01,"E"
         ;;D^DATABASE LOOKUP
         ;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",.02,"E"
         ;;D^DATABASE LOOKUP
         ;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",1,"E"
         ;;D^PATIENT.CLOZ_ANC_W/IN_7_FLAG
         ;;EOR^
         ;;KEY^860.4:^CLOZAPINE ANC W/IN 7 RESULT
         ;;R^"860.4:",.01,"E"
         ;;D^CLOZAPINE ANC W/IN 7 RESULT
         ;;R^"860.4:",1,"E"
         ;;D^CLOZ ANC RSLT
         ;;R^"860.4:",101,"E"
         ;;D^NUMERIC
         ;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",.01,"E"
         ;;D^DATABASE LOOKUP
         ;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",.02,"E"
         ;;D^DATABASE LOOKUP
         ;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",1,"E"
         ;;D^PATIENT.CLOZ_ANC_W/IN_7_RSLT
         ;;EOR^
         ;;KEY^860.4:^CLOZAPINE LAB RESULTS
         ;;R^"860.4:",.01,"E"
         ;;D^CLOZAPINE LAB RESULTS
         ;;R^"860.4:",1,"E"
         ;;D^CLOZ LAB RSLTS
         ;;R^"860.4:",101,"E"
         ;;D^FREE TEXT
         ;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",.01,"E"
         ;;D^DATABASE LOOKUP
         ;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",.02,"E"
         ;;D^DATABASE LOOKUP
         ;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",1,"E"
         ;;D^PATIENT.CLOZ_LAB_RESULTS
         ;;EOR^
         ;;KEY^860.4:^CLOZAPINE MED
         ;;R^"860.4:",.01,"E"
         ;;D^CLOZAPINE MED
         ;;R^"860.4:",1,"E"
         ;;D^CLOZAPINE
         ;;R^"860.4:",101,"E"
         ;;D^BOOLEAN
         ;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",.01,"E"
         ;;D^DATABASE LOOKUP
         ;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",.02,"E"
         ;;D^DATABASE LOOKUP
         ;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",1,"E"
         ;;D^PATIENT.CLOZAPINE MED
         ;;EOR^
         ;;KEY^860.4:^FILLER
         ;;R^"860.4:",.01,"E"
         ;;D^FILLER
         ;;R^"860.4:",1,"E"
         ;;D^FILL
         ;;R^"860.4:",101,"E"
         ;;D^FREE TEXT
         ;;R^"860.4:","860.41:CPRS ORDER PRESCAN^860.6",.01,"E"
         ;;D^CPRS ORDER PRESCAN
         ;;R^"860.4:","860.41:CPRS ORDER PRESCAN^860.6",.02,"E"
         ;;D^ORDER ENTRY ORDER PRESCAN
         ;;R^"860.4:","860.41:CPRS ORDER PRESCAN^860.6",1,"E"
         ;;D^PATIENT.OPS_FILLER
         ;;R^"860.4:","860.41:GENERIC HL7 MESSAGE ARRAY^860.6",.01,"E"
         ;;D^GENERIC HL7 MESSAGE ARRAY
         ;;R^"860.4:","860.41:GENERIC HL7 MESSAGE ARRAY^860.6",.02,"E"
         ;;D^HL7 COMMON ORDER SEGMENT
         ;;R^"860.4:","860.41:GENERIC HL7 MESSAGE ARRAY^860.6",1,"E"
         ;;D^PATIENT.HL7_FILLER
         ;;EOR^
         ;;KEY^860.4:^ORDER MODE
         ;;R^"860.4:",.01,"E"
         ;;D^ORDER MODE
         ;;R^"860.4:",101,"E"
         ;;D^FREE TEXT
         ;;R^"860.4:","860.41:CPRS ORDER PRESCAN^860.6",.01,"E"
         ;;D^CPRS ORDER PRESCAN
         ;;R^"860.4:","860.41:CPRS ORDER PRESCAN^860.6",.02,"E"
         ;;D^ORDER ENTRY ORDER PRESCAN
         ;;R^"860.4:","860.41:CPRS ORDER PRESCAN^860.6",1,"E"
         ;;D^PATIENT.OPS_ORD_MODE
         ;;EOR^
         ;;KEY^860.4:^PATIENT IEN
         ;;R^"860.4:",.01,"E"
         ;;D^PATIENT IEN
         ;;R^"860.4:",101,"E"
         ;;D^NUMERIC
         ;;R^"860.4:","860.41:CPRS ORDER PROTOCOL^860.6",.01,"E"
         ;;D^CPRS ORDER PROTOCOL
         ;;R^"860.4:","860.41:CPRS ORDER PROTOCOL^860.6",.02,"E"
         ;;D^OERR ORDER EVENT FLAG PROTOCOL
         ;;R^"860.4:","860.41:CPRS ORDER PROTOCOL^860.6",1,"E"
         ;;D^PATIENT.OERR_ORDER_PATIENT
         ;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",.01,"E"
         ;;D^DATABASE LOOKUP
         ;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",.02,"E"
         ;;D^DATABASE LOOKUP
         ;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",1,"E"
         ;;D^PATIENT.IEN
         ;;R^"860.4:","860.41:GENERIC HL7 MESSAGE ARRAY^860.6",.01,"E"
         ;;D^GENERIC HL7 MESSAGE ARRAY
         ;;R^"860.4:","860.41:GENERIC HL7 MESSAGE ARRAY^860.6",.02,"E"
         ;;D^HL7 PATIENT ID SEGMENT
         ;;R^"860.4:","860.41:GENERIC HL7 MESSAGE ARRAY^860.6",1,"E"
         ;;D^PATIENT.HL7_PATIENT_ID
         ;;EOR^
         ;;KEY^860.4:^PHARMACY LOCAL ID
         ;;R^"860.4:",.01,"E"
         ;;D^PHARMACY LOCAL ID
         ;;R^"860.4:",1,"E"
         ;;D^DISP DRUG IEN
         ;;R^"860.4:",101,"E"
         ;;D^FREE TEXT
         ;;R^"860.4:","860.41:CPRS ORDER PRESCAN^860.6",.01,"E"
         ;;D^CPRS ORDER PRESCAN
         ;;R^"860.4:","860.41:CPRS ORDER PRESCAN^860.6",.02,"E"
         ;;D^ORDER ENTRY ORDER PRESCAN
         ;;R^"860.4:","860.41:CPRS ORDER PRESCAN^860.6",1,"E"
         ;;D^PATIENT.OPS_DRUG_ID
         ;;EOR^
         ;;EOF^OCXS(860.4)^1
         ;;SOF^860.3  ORDER CHECK ELEMENT
         ;;KEY^860.3:^CLOZAPINE ANC < 1.0
         ;;R^"860.3:",.01,"E"
         ;;D^CLOZAPINE ANC < 1.0
         ;;R^"860.3:",.02,"E"
         ;;D^CPRS ORDER PRESCAN
         ;;R^"860.3:","860.31:1",.01,"E"
         ;;D^4
         ;;R^"860.3:","860.31:1",1,"E"
         ;;D^CLOZAPINE ANC W/IN 7 RESULT
         ;;R^"860.3:","860.31:1",2,"E"
         ;;D^LESS THAN
         ;;R^"860.3:","860.31:1",3,"E"
         ;;D^1.0
         ;;R^"860.3:","860.31:2",.01,"E"
         ;;D^5
         ;;R^"860.3:","860.31:2",1,"E"
         ;;D^CLOZAPINE ANC W/IN 7 FLAG
         ;;R^"860.3:","860.31:2",2,"E"
         ;;D^LOGICAL TRUE
         ;;EOR^
         ;;KEY^860.3:^CLOZAPINE ANC >= 1.0 & < 1.5
         ;;R^"860.3:",.01,"E"
         ;;D^CLOZAPINE ANC >= 1.0 & < 1.5
         ;;R^"860.3:",.02,"E"
         ;;D^CPRS ORDER PRESCAN
         ;;R^"860.3:","860.31:1",.01,"E"
         ;;D^1
         ;;R^"860.3:","860.31:1",1,"E"
         ;;D^CLOZAPINE ANC W/IN 7 RESULT
         ;;R^"860.3:","860.31:1",2,"E"
         ;;D^GREATER THAN
         ;;R^"860.3:","860.31:1",3,"E"
         ;;D^.999
         ;;R^"860.3:","860.31:2",.01,"E"
         ;;D^2
         ;;R^"860.3:","860.31:2",1,"E"
         ;;D^CLOZAPINE ANC W/IN 7 RESULT
         ;;R^"860.3:","860.31:2",2,"E"
         ;;D^LESS THAN
         ;;R^"860.3:","860.31:2",3,"E"
         ;;D^1.5
         ;;R^"860.3:","860.31:3",.01,"E"
         ;;D^3
         ;;R^"860.3:","860.31:3",1,"E"
         ;;D^CLOZAPINE ANC W/IN 7 FLAG
         ;;R^"860.3:","860.31:3",2,"E"
         ;;D^LOGICAL TRUE
         ;;EOR^
         ;;KEY^860.3:^CLOZAPINE DRUG SELECTED
         ;;R^"860.3:",.01,"E"
         ;;D^CLOZAPINE DRUG SELECTED
         ;;R^"860.3:",.02,"E"
         ;;D^CPRS ORDER PRESCAN
         ;;R^"860.3:","860.31:1",.01,"E"
         ;;D^1
         ;;R^"860.3:","860.31:1",1,"E"
         ;1;
         ;

*****   INDEX OF ORY42707   *****


Local Variables      Line Occurrences   ( >> not killed explicitly)
                                        ( * Changed  ! Killed  ~ Newed)
>> LINE         S+6*
   LOCAL        S+5!
   OPCODE       S+5!
>> QUIT         S+6
   REF          S+5!
   REMOTE       S+5!
>> TEXT         S+6*,S+7

Global Variables  ( * Changed  ! Killed)
   ^TMP("OCXRULE"      S+7*

Naked Globals
   NONE

Cache Objects
   NONE

Marked Items
   $T(DATA+LINE S+6

Label References
   NONE

External References
   ^ORY42708           S+9
   DOT^ORY427ES        S+2

*****   END   *****

   Press return to continue:

























ORY42708 * *  108 Lines,  3287 Bytes, Checksum: B18751543
                                                  Jun 16, 2016@07:08:53 page 11
              121 bytes in comments
ORY42708 ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install
           of OR*3*427) ;MAY 10,2016 at 13:31
         ;;3.0;ORDER ENTRY/RESULTS REPORTING;**427**;Dec 17,1997;Build 242
         ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
         ;
S        ;
         ;
         D DOT^ORY427ES
         ;
         ;
         K REMOTE,LOCAL,OPCODE,REF
         F LINE=1:1:500 S TEXT=$P($T(DATA+LINE),";",2,999) Q:TEXT  I $L(TEXT) D 
           Q:QUIT
         .S ^TMP("OCXRULE",$J,$O(^TMP("OCXRULE",$J,"A"),-1)+1)=TEXT
         ;
         ;
         ;
         Q
         ;
DATA     ;
         ;
         ;;D^ORDER MODE
         ;;R^"860.3:","860.31:1",2,"E"
         ;;D^EQ FREE TEXT
         ;;R^"860.3:","860.31:1",3,"E"
         ;;D^SELECT
         ;;R^"860.3:","860.31:2",.01,"E"
         ;;D^2
         ;;R^"860.3:","860.31:2",1,"E"
         ;;D^FILLER
         ;;R^"860.3:","860.31:2",2,"E"
         ;;D^STARTS WITH
         ;;R^"860.3:","860.31:2",3,"E"
         ;;D^PS
         ;;R^"860.3:","860.31:5",.01,"E"
         ;;D^5
         ;;R^"860.3:","860.31:5",1,"E"
         ;;D^CLOZAPINE MED
         ;;R^"860.3:","860.31:5",2,"E"
         ;;D^LOGICAL TRUE
         ;;EOR^
         ;;KEY^860.3:^CLOZAPINE NO ANC W/IN 7 DAYS
         ;;R^"860.3:",.01,"E"
         ;;D^CLOZAPINE NO ANC W/IN 7 DAYS
         ;;R^"860.3:",.02,"E"
         ;;D^CPRS ORDER PRESCAN
         ;;R^"860.3:","860.31:6",.01,"E"
         ;;D^6
         ;;R^"860.3:","860.31:6",1,"E"
         ;;D^CLOZAPINE ANC W/IN 7 FLAG
         ;;R^"860.3:","860.31:6",2,"E"
         ;;D^LOGICAL FALSE
         ;;EOR^
         ;;EOF^OCXS(860.3)^1
         ;;SOF^860.2  ORDER CHECK RULE
         ;;KEY^860.2:^CLOZAPINE
         ;;R^"860.2:",.01,"E"
         ;;D^CLOZAPINE
         ;;R^"860.2:","860.21:10",.01,"E"
         ;;D^1.0 >= ANC < 1.5
         ;;R^"860.2:","860.21:10",.02,"E"
         ;;D^SIMPLE DEFINITION
         ;;R^"860.2:","860.21:10",1,"E"
         ;;D^CLOZAPINE ANC >= 1.0 & < 1.5
         ;;R^"860.2:","860.21:4",.01,"E"
         ;;D^ANC < 1.0
         ;;R^"860.2:","860.21:4",.02,"E"
         ;;D^SIMPLE DEFINITION
         ;;R^"860.2:","860.21:4",1,"E"
         ;;D^CLOZAPINE ANC < 1.0
         ;;R^"860.2:","860.21:6",.01,"E"
         ;;D^NO ANC W/IN 7 DAYS
         ;;R^"860.2:","860.21:6",.02,"E"
         ;;D^SIMPLE DEFINITION
         ;;R^"860.2:","860.21:6",1,"E"
         ;;D^CLOZAPINE NO ANC W/IN 7 DAYS
         ;;R^"860.2:","860.21:7",.01,"E"
         ;;D^CLOZAPINE
         ;;R^"860.2:","860.21:7",.02,"E"
         ;;D^SIMPLE DEFINITION
         ;;R^"860.2:","860.21:7",1,"E"
         ;;D^CLOZAPINE DRUG SELECTED
         ;;R^"860.2:","860.22:1",.01,"E"
         ;;D^1
         ;;R^"860.2:","860.22:1",1,"E"
         ;;D^CLOZAPINE AND (NO ANC W/IN 7 DAYS)
         ;;R^"860.2:","860.22:1",2,"E"
         ;;D^CLOZAPINE APPROPRIATENESS
         ;;R^"860.2:","860.22:1",6,"E"
         ;;D^Clozapine orders require a CBC/Diff within past 7 days.  Please ord
          er CBC/Diff with WBC and ANC immediately.  Most recent results - |CLOZ
           LAB RSLTS|
         ;;R^"860.2:","860.22:2",.01,"E"
         ;;D^2
         ;;R^"860.2:","860.22:2",1,"E"
         ;;D^CLOZAPINE AND ANC < 1.0
         ;;R^"860.2:","860.22:2",2,"E"
         ;;D^CLOZAPINE APPROPRIATENESS
         ;;R^"860.2:","860.22:2",6,"E"
         ;;D^Moderate/Severe Neutropenia - please repeat CBC/Diff including WBC 
          and ANC tests immediately and Daily until ANC stabilizes to greater th
          an or equal to 1000. Most recent results - |CLOZ LAB RSLTS|
         ;;R^"860.2:","860.22:3",.01,"E"
         ;;D^3
         ;;R^"860.2:","860.22:3",1,"E"
         ;;D^CLOZAPINE AND (1.0 >= ANC < 1.5)
         ;;R^"860.2:","860.22:3",2,"E"
         ;;D^CLOZAPINE APPROPRIATENESS
         ;;R^"860.2:","860.22:3",6,"E"
         ;;D^ Mild Neutropenia - please repeat CBC/Diff including WBC and ANC te
          sts immediately and 3X weekly until ANC stabilizes to greater than or 
          equal to 1500. Most recent results - |CLOZ LAB RSLTS|
         ;;EOR^
         ;;EOF^OCXS(860.2)^1
         ;1;
         ;

*****   INDEX OF ORY42708   *****


Local Variables      Line Occurrences   ( >> not killed explicitly)
                                        ( * Changed  ! Killed  ~ Newed)
>> LINE         S+6*
   LOCAL        S+5!
   OPCODE       S+5!
>> QUIT         S+6
   REF          S+5!
   REMOTE       S+5!
>> TEXT         S+6*,S+7

Global Variables  ( * Changed  ! Killed)
   ^TMP("OCXRULE"      S+7*

Naked Globals
   NONE

Cache Objects
   NONE

Marked Items
   $T(DATA+LINE S+6

Label References
   NONE

External References
   DOT^ORY427ES        S+2

*****   END   *****

   Press return to continue:

























ORY4271  * *  172 Lines,  6010 Bytes, Checksum: B40435115
                                                  Jun 16, 2016@07:08:53 page 12
              156 bytes in comments
ORY4271  ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install
           of OR*3*427) ;MAY 10,2016 at 13:31
         ;;3.0;ORDER ENTRY/RESULTS REPORTING;**427**;Dec 17,1997;Build 242
         ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
         ;
S        ;
         ;
         Q
         ;
         ;
COMPARE(L,R) --
          ;
         ;
         Q:$$RES("R") 1
         ;
         Q:'$L($O(L(""))) $$ADDREC^ORY4272("R")
         ;
         N C,OCXDD M C=L,C=R S OCXDD=$O(C("")) Q $$MULT("C",OCXDD)
         ;
         Q 0
         ;
RES(REF) ;
         ;
         N QUIT,SUB
         S QUIT=0
         S SUB="" F  S SUB=$O(@REF@(SUB)) Q:'$L(SUB)  I (SUB[":") D  Q:QUIT
         .N DD,DA
         .S DD=$P(SUB,":",1),DA=$P(SUB,":",2)
         .I $L(DA),'(DA=+DA) D  Q:QUIT
         ..N DANEW,SUBNEW
         ..S DANEW=$O(^OCXS($P(DA,U,2),"B",$P(DA,U,1),0))
         ..I 'DANEW W !!,$P($G(^OCXS(+$P(DA,U,2),0)),U,1),": ",$P(DA,U,1),"  cou
          ld not resolve name.",!!,"    End Transport." S QUIT=1 Q
         ..S SUBNEW=DD_":"_DANEW
         ..I $D(@REF@(SUBNEW)) W !!," multiple #",DANEW," already existed." S QU
          IT=1 Q
         ..M @REF@(SUBNEW)=@REF@(SUB)
         ..K @REF@(SUB)
         ..S SUB=""
         .I $L(SUB),($D(@REF@(SUB))>9) S QUIT=$$RES($NA(@REF@(SUB)))
         ;
         Q QUIT
         ;
MULT(CREF,OCXDD) --
          ;
         ;
         N OCXSUB,LREF,RREF,QUIT,OCXFLD
         S LREF="L"_$E(CREF,2,$L(CREF)),RREF="R"_$E(CREF,2,$L(CREF))
         ;
         S QUIT=0,OCXFLD="" F  S OCXFLD=$O(@CREF@(OCXDD,OCXFLD)) Q:'$L(OCXFLD)  
          D  Q:QUIT
         .I (OCXFLD[":") D  Q:QUIT
         ..Q:$$EXFLD(+OCXFLD,0)
         ..I '$D(@LREF@(OCXDD,OCXFLD,.01,"E")) D  M @LREF@(OCXDD,OCXFLD)=@RREF@(
          OCXDD,OCXFLD)
         ...D WARN("Missing multiple:",CREF,OCXDD,OCXFLD)
         ...S QUIT=$$ADDMULT^ORY4273(CREF,OCXDD,OCXFLD)
         ..I '$D(@RREF@(OCXDD,OCXFLD,.01,"E")) D  M @RREF@(OCXDD,OCXFLD)=@LREF@(
          OCXDD,OCXFLD)
         ...D WARN("Extra multiple:",CREF,OCXDD,OCXFLD)
         ...S QUIT=$$DELMULT^ORY4273($$APPEND(CREF,OCXDD),OCXFLD)
         .;
         .I (OCXFLD=+OCXFLD),'$$EXFLD(+OCXDD,OCXFLD) D
         ..I ($O(@CREF@(OCXDD,OCXFLD,""))="E") D  Q
         ...I $L($G(@RREF@(OCXDD,OCXFLD,"E"))),'$L($G(@LREF@(OCXDD,OCXFLD,"E")))
           D  Q
         ....D WARN("Data Value Missing in "_$$NETNAME^OCXSEND,CREF,OCXDD,OCXFLD
          ,"E")
         ....S QUIT=$$EDITFLD^ORY4274(CREF,OCXDD,OCXFLD,"E")
         ...I $L($G(@LREF@(OCXDD,OCXFLD,"E"))),'$L($G(@RREF@(OCXDD,OCXFLD,"E")))
           D  Q
         ....D WARN("Extra Data Value in "_$$NETNAME^OCXSEND,CREF,OCXDD,OCXFLD,"
          E")
         ....S QUIT=$$DELFLD^ORY4274(CREF,OCXDD,OCXFLD,"E")
         ...I '(@LREF@(OCXDD,OCXFLD,"E")=@RREF@(OCXDD,OCXFLD,"E")) D
         ....D WARN("Inconsistent Data",CREF,OCXDD,OCXFLD,"E")
         ....S QUIT=$$EDITFLD^ORY4274(CREF,OCXDD,OCXFLD,"E")
         ..S OCXSUB=0 F  Q:QUIT  S OCXSUB=$O(@CREF@(OCXDD,OCXFLD,OCXSUB)) Q:'OCX
          SUB  I '($G(@RREF@(OCXDD,OCXFLD,OCXSUB))=$G(@LREF@(OCXDD,OCXFLD,OCXSUB
          ))) D  Q
         ...D WARN("Inconsistent word Data",CREF,OCXDD,OCXFLD,OCXSUB)
         ...S QUIT=$$LOADWORD^ORY4272(RREF,OCXDD,OCXFLD,OCXSUB)
         .;
         .I 'QUIT,(OCXFLD[":") S QUIT=$$MULT($$APPEND(CREF,OCXDD),OCXFLD)
         Q QUIT
         ;
APPEND(ARRAY,OCXSUB) --
          ;
         S:'(OCXSUB=+OCXSUB) OCXSUB=""""_OCXSUB_""""
         Q:'(ARRAY["(") ARRAY_"("_OCXSUB_")"
         Q $E(ARRAY,1,$L(ARRAY)-1)_","_OCXSUB_")"
         ;
EXFLD(FILE,OCXFLD) --
          ;
         N OCXFNAM
         S OCXFNAM=$$FIELD^OCXSENDD(FILE,OCXFLD,"LABEL")
         I (OCXFNAM["UNIQUE OBJECT IDENTIFIER") Q 1
         I (FILE=860.2),(OCXFLD=.02) Q 1
         I (FILE=860.22),(OCXFLD=4) Q 1
         I (FILE=860.3),(OCXFLD=3) Q 1
         I (FILE=860.9),(OCXFLD=1) Q 1
         I (FILE=860.91) Q 1
         I (FILE=860.801) Q 1
         I (FILE=860.81) Q 1
         I (FILE=861.01) Q 1
         I (FILE=863.02) Q 1
         I (FILE=863.54) Q 1
         I (FILE=863.61) Q 1
         I (FILE=863.72) Q 1
         I (FILE=863.81) Q 1
         I ($E(OCXFNAM,1)="*") Q 1
         Q 0
         ;
WARN(MSG,CREF,OCXDD,OCXFLD,OCXSUB) --
          ;
         ;
         Q:$G(OCXAUTO)
         ;
         N D0,DASH,OCXDDPTH,OCXDPTR,FILE,FILEID,LREF,OCXPTR,RREF
         ;
         S DASH="",$P(DASH,"-",(55-$L(MSG)))="-"
         W !!,"------------",MSG,DASH
         D DSPHDR(CREF,OCXDD,OCXFLD)
         I $D(OCXSUB) D DSPFLD(CREF,OCXDD,OCXFLD,OCXSUB)
         I '$D(OCXSUB) D DSPREC(CREF,OCXDD,OCXFLD)
         ;
         W ! Q
         ;
DSPREC(CREF,OCXDD,OCXFLD) --
          ;
         ;
         N OCXDPTR,OCXDDPTH,LEVL,OCXCREF,OCXSUB
         S OCXCREF=$$APPEND($$APPEND(CREF,OCXDD),OCXFLD)
         S OCXDDPTH=$P($P(OCXCREF,"(",2),")",1),LEVL=$L(OCXDDPTH,",")
         S OCXSUB="" F  S OCXSUB=$O(@OCXCREF@(OCXSUB)) Q:'$L(OCXSUB)  D
         .;
         .I '(OCXSUB[":"),'((OCXSUB=.01)&$O(@OCXCREF@(OCXSUB))) D
         ..N LINE
         ..Q:$$EXFLD(+OCXFLD,OCXSUB)
         ..I OCXFLD W !,?(5+((LEVL)*4)),$$FIELD^OCXSENDD(+OCXFLD,OCXSUB,"LABEL")
          ,": ",$G(@OCXCREF@(OCXSUB,"E"))
         ..S LINE=0 F  S LINE=$O(@OCXCREF@(OCXSUB,LINE)) Q:'LINE  D
         ...W !,?(5+(LEVL*4)),$J(LINE,3),">",@OCXCREF@(OCXSUB,LINE)
         .;
         .I (OCXSUB[":") D
         ..N D0,OCXDD,FILENAME
         ..S D0=+$P(OCXSUB,":",2),OCXDD=+OCXSUB
         ..S FILENAME=$$FILENAME^OCXSENDD(OCXDD)
         ..I $L(FILENAME) W !,?(5+($L(LEVL)*4)),FILENAME
         ..E  W !!,?(5+(LEVL*4)),FILENAME
         ..W " ",D0,": ",$G(@OCXCREF@(OCXSUB,.01,"E"))
         ..D DSPREC($$APPEND(CREF,OCXDD),OCXFLD,OCXSUB)
         ;
         Q
         ;
DSPHDR(CREF,OCXDD,OCXFLD) --
          ;
         ;
         N D0,FILE,FILEID,OCXPTR,OCXDDPTH
         S OCXDDPTH=$P($P($$APPEND($$APPEND(CREF,OCXDD),OCXFLD),"(",2),")",1)
         S FILE="" F OCXPTR=1:1:$L(OCXDDPTH,",") D
         .N OCXDD,D0,FILEID
         .S FILEID=$P(OCXDDPTH,",",OCXPTR)
         .I (FILEID[":") D
         ..S D0=+$P(FILEID,":",2),OCXDD=+$E(FILEID,2,$L(FILEID))
         ..W !,?(5+(OCXPTR*4)),$$FILENAME^OCXSENDD(OCXDD)
         ..S:$L(FILE) FILE=FILE_"," S FILE=FILE_FILEID
         ..I $D(@("L("_FILE_",.01,""E"")")) W ": ",@("L("_FILE_",.01,""E"")") W:
          D0 " [",D0,"]"
         ..E  I $D(@("R("_FILE_",.01,""E"")")) W ": ",@("R("_FILE_",.01,""E"")")
           W:D0 " [",D0,"]"
         ;
         Q
         ;
DSPFLD(CREF,OCXDD,OCXFLD,OCXSUB) --
          ;
         ;
         N OCXDPTR,LREF,RREF,OCXDDPTH
         ;
         S OCXDDPTH=$P($P($$APPEND(CREF,OCXDD),"(",2),")",1)
         S LREF="L("_OCXDDPTH_")",RREF="R("_OCXDDPTH_")"
         W !,?(5+(($L(OCXDDPTH,",")+1)*4)),$$FIELD^OCXSENDD(OCXDD,OCXFLD,"LABEL"
          )," field [",OCXFLD,"]"
         I OCXSUB W " Line #",OCXSUB
         ;
         W:($D(@RREF@(OCXFLD,OCXSUB))) !,?(5+(($L(OCXDDPTH,",")+2)*4)),"(R) NCCL
          AB1.AAC.DNS   : ",@RREF@(OCXFLD,OCXSUB)
         W:($D(@LREF@(OCXFLD,OCXSUB))) !,?(5+(($L(OCXDDPTH,",")+2)*4)),"(L) ",$$
          NETNAME^OCXSEND,": ",@LREF@(OCXFLD,OCXSUB)
         ;
         Q
         ;
         W !,?10 Q 0 Q $$PAUSE
         ;
PAUSE()  W "  Press Enter " R X:DTIME W ! Q (X[U)
         ;
NOW()    N X,Y,%DT S X="N",%DT="T" D ^%DT S Y=$$DATE^OCXSENDD(Y) S:(Y["@") Y=$P(
          Y,"@",1)_" at "_$P(Y,"@",2) Q Y
         ;

*****   INDEX OF ORY4271   *****


Local Variables      Line Occurrences   ( >> not killed explicitly)
                                        ( * Changed  ! Killed  ~ Newed)
   %DT          NOW~*
   ARRAY        APPEND~,APPEND+2,APPEND+3
   C            COMPARE+6~*
   C(""         COMPARE+6
   CREF         MULT~,MULT+3,MULT+5,MULT+9,MULT+10,MULT+12,MULT+13,MULT+16
                MULT+18,MULT+19,MULT+21,MULT+22,MULT+24,MULT+25,MULT+26,MULT+27
                MULT+30,WARN~,WARN+8,WARN+9,WARN+10,DSPREC~,DSPREC+3,DSPREC+21
                DSPHDR~,DSPHDR+3,DSPFLD~,DSPFLD+4
   D0           WARN+4~,DSPREC+15~,DSPREC+16*,DSPREC+20,DSPHDR+2~,DSPHDR+5~
                DSPHDR+8*,DSPHDR+11,DSPHDR+12
   DA           RES+5~,RES+6*,RES+7,RES+9,RES+10
   DANEW        RES+8~,RES+9*,RES+10,RES+11,RES+12
   DASH         WARN+4~,WARN+6*,WARN+7
   DD           RES+5~,RES+6*,RES+11
   DTIME        PAUSE
   FILE         EXFLD~,EXFLD+2,EXFLD+4,EXFLD+5,EXFLD+6,EXFLD+7,EXFLD+8,EXFLD+9
                EXFLD+10,EXFLD+11,EXFLD+12,EXFLD+13,EXFLD+14,EXFLD+15,EXFLD+16
                WARN+4~,DSPHDR+2~,DSPHDR+4*,DSPHDR+10*,DSPHDR+11,DSPHDR+12
   FILEID       WARN+4~,DSPHDR+2~,DSPHDR+5~,DSPHDR+6*,DSPHDR+7,DSPHDR+8
                DSPHDR+10
   FILENAME     DSPREC+15~,DSPREC+17*,DSPREC+18,DSPREC+19
   L            COMPARE~,COMPARE+6
   L(""         COMPARE+4
   LEVL         DSPREC+2~,DSPREC+4*,DSPREC+10,DSPREC+12,DSPREC+18,DSPREC+19
   LINE         DSPREC+8~,DSPREC+11*,DSPREC+12
   LREF         MULT+2~,MULT+3*,MULT+8,MULT+11,MULT+17,MULT+20,MULT+23,MULT+26
                WARN+4~,DSPFLD+2~,DSPFLD+5*,DSPFLD+10
   MSG          WARN~,WARN+6,WARN+7
>> OCXAUTO      WARN+2
   OCXCREF      DSPREC+2~,DSPREC+3*,DSPREC+4,DSPREC+5,DSPREC+7,DSPREC+10
                DSPREC+11,DSPREC+12,DSPREC+20
   OCXDD        COMPARE+6~*,MULT~,MULT+5,MULT+8,MULT+9,MULT+10,MULT+11,MULT+12
                MULT+13,MULT+15,MULT+16,MULT+17,MULT+18,MULT+19,MULT+20,MULT+21
                MULT+22,MULT+23,MULT+24,MULT+25,MULT+26,MULT+27,MULT+28,MULT+30
                WARN~,WARN+8,WARN+9,WARN+10,DSPREC~,DSPREC+3
                DSPREC+15~,DSPREC+16*,DSPREC+17,DSPREC+21,DSPHDR~,DSPHDR+3
                DSPHDR+5~,DSPHDR+8*,DSPHDR+9,DSPFLD~,DSPFLD+4,DSPFLD+6
   OCXDDPTH     WARN+4~,DSPREC+2~,DSPREC+4*,DSPHDR+2~,DSPHDR+3*,DSPHDR+4
                DSPHDR+6,DSPFLD+2~,DSPFLD+4*,DSPFLD+5,DSPFLD+6,DSPFLD+9
                DSPFLD+10
   OCXDPTR      WARN+4~,DSPREC+2~,DSPFLD+2~
   OCXFLD       MULT+2~,MULT+5*,MULT+6,MULT+7,MULT+8,MULT+9,MULT+10,MULT+11
                MULT+12,MULT+13,MULT+15,MULT+16,MULT+17,MULT+18,MULT+19,MULT+20
                MULT+21,MULT+22,MULT+23,MULT+24,MULT+25,MULT+26,MULT+27,MULT+28
                MULT+30,EXFLD~,EXFLD+2,EXFLD+4,EXFLD+5,EXFLD+6
                EXFLD+7,WARN~,WARN+8,WARN+9,WARN+10,DSPREC~,DSPREC+3,DSPREC+9
                DSPREC+10,DSPREC+21,DSPHDR~,DSPHDR+3,DSPFLD~,DSPFLD+6,DSPFLD+9
                DSPFLD+10
   OCXFNAM      EXFLD+1~,EXFLD+2*,EXFLD+3,EXFLD+17
   OCXPTR       WARN+4~,DSPHDR+2~,DSPHDR+4*,DSPHDR+6,DSPHDR+9
   OCXSUB       MULT+2~,MULT+26*,MULT+27,MULT+28,APPEND~,APPEND+1*,APPEND+2
                APPEND+3,WARN~,WARN+9,WARN+10,DSPREC+2~,DSPREC+5*,DSPREC+7
                DSPREC+9,DSPREC+10,DSPREC+11,DSPREC+12,DSPREC+14,DSPREC+16
                DSPREC+20,DSPREC+21,DSPFLD~,DSPFLD+7,DSPFLD+9,DSPFLD+10
   QUIT         RES+2~,RES+3*,RES+4,RES+7,RES+10*,RES+12*,RES+16*,RES+18
                MULT+2~,MULT+5*,MULT+6,MULT+10*,MULT+13*,MULT+19*,MULT+22*
                MULT+25*,MULT+26,MULT+28*,MULT+30*,MULT+31
   R            COMPARE~,COMPARE+6
   REF          RES~,RES+4,RES+12,RES+13,RES+14,RES+16
   RREF         MULT+2~,MULT+3*,MULT+8,MULT+11,MULT+17,MULT+20,MULT+23,MULT+26
                MULT+28,WARN+4~,DSPFLD+2~,DSPFLD+5*,DSPFLD+9
   SUB          RES+2~,RES+4*,RES+6,RES+13,RES+14,RES+15*,RES+16
   SUBNEW       RES+8~,RES+11*,RES+12,RES+13
   U            RES+9,RES+10,PAUSE
   X            PAUSE*,NOW~*
   Y            NOW~*

Global Variables  ( * Changed  ! Killed)
   ^OCXS(              RES+9,RES+10

Naked Globals
   NONE

Cache Objects
   NONE

Marked Items
   NONE

Label References
   $$APPEND     MULT+13,MULT+30,DSPREC+3,DSPREC+21,DSPHDR+3,DSPFLD+4
   $$EXFLD      MULT+7,MULT+15,DSPREC+9
   $$MULT       COMPARE+6,MULT+30
   $$PAUSE      DSPFLD+14
   $$RES        COMPARE+2,RES+16
   DSPFLD       WARN+9
   DSPHDR       WARN+8
   DSPREC       WARN+10,DSPREC+21
   WARN         MULT+9,MULT+12,MULT+18,MULT+21,MULT+24,MULT+27

External References
   ^%DT                NOW
   $$NETNAME^OCXSEND   MULT+18,MULT+21,DSPFLD+10
   $$DATE^OCXSENDD     NOW
   $$FIELD^OCXSENDD    EXFLD+2,DSPREC+10,DSPFLD+6
   $$FILENAME^OCXSENDD DSPREC+17,DSPHDR+9
   $$ADDREC^ORY4272    COMPARE+4
   $$LOADWORD^ORY4272  MULT+28
   $$ADDMULT^ORY4273   MULT+10
   $$DELMULT^ORY4273   MULT+13
   $$DELFLD^ORY4274    MULT+22
   $$EDITFLD^ORY4274   MULT+19,MULT+25

*****   END   *****

   Press return to continue:

























ORY4272  * *  141 Lines,  4669 Bytes, Checksum: B26767346
                                                  Jun 16, 2016@07:08:53 page 13
              200 bytes in comments
ORY4272  ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install
           of OR*3*427) ;MAY 10,2016 at 13:31
         ;;3.0;ORDER ENTRY/RESULTS REPORTING;**427**;Dec 17,1997;Build 242
         ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
         ;
S        ;
         ;  Record Utilities
         Q
         ;
ADDREC(OCXCREF) --
          ;
         ;
         N QUIT,OCXDD,OCXDA,OCXGREF,OCXNAME
         S OCXDD=$O(@OCXCREF@("")) Q:'OCXDD 0
         S OCXNAME=$G(@OCXCREF@(OCXDD,.01,"E"))
         ;
         W "   record missing..."
         I (OCXFLAG["D") Q 0
         ;
         S OCXDA=0 D CREATE(OCXCREF,OCXDD,.OCXDA,0)
         S:$L(OCXNAME) ^TMP("OCXRULE",$J,"A",+OCXDD,OCXNAME)=""
         ;
         Q 0
         ;
CREATE(OCXCREF,OCXDD,OCXDA,OCXLVL) --
          ;
         ;
         N OCXFLD,OCXGREF,OCXKEY
         ;
         I $L(OCXDA),'(OCXDA=+OCXDA) W !!,"Unresolved subscript." Q
         ;
         S OCXKEY=@OCXCREF@(OCXDD,.01,"E")
         S OCXGREF=$$GETREF(+OCXDD,.OCXDA,OCXLVL) Q:'$L(OCXGREF)
         I 'OCXDA D
         .S OCXDA=$O(^TMP("OCXRULE",$J,"B",+OCXDD,OCXKEY,0)) Q:OCXDA
         .S OCXDA=$O(@(OCXGREF_""" "")"),-1)+1
         .F OCXDA=OCXDA:1 Q:'$D(@(OCXGREF_OCXDA_",0)"))
         .I $D(@(OCXGREF_OCXDA_",0)")) S OCXDA=0
         ;
         I 'OCXDA W !!,"Error adding record..." Q
         ;
         I '$D(@(OCXGREF_"0)")) S @(OCXGREF_"0)")=U_$$FILEHDR^OCXSENDD(+OCXDD)_U
          _U
         ;
         S OCXFLD=0 F  S OCXFLD=$O(@OCXCREF@(OCXDD,OCXFLD)) Q:'OCXFLD  Q:(OCXFLD
          [":")  I '$$EXFLD^ORY4271(+OCXDD,OCXFLD) D
         .I $L($G(@OCXCREF@(OCXDD,OCXFLD,"E"))) D DIE(OCXDD,OCXGREF,OCXFLD,@OCXC
          REF@(OCXDD,OCXFLD,"E"),.OCXDA,OCXLVL)
         .I $O(@OCXCREF@(OCXDD,OCXFLD,0)) D WORD(OCXDD,OCXGREF,OCXFLD,.OCXDA,OCX
          CREF)
         ;
         D PUSH(.OCXDA)
         S OCXFLD="" F  S OCXFLD=$O(@OCXCREF@(OCXDD,OCXFLD)) Q:'$L(OCXFLD)  I (O
          CXFLD[":") D
         .S OCXDA=$P(OCXFLD,":",2) W ! D CREATE($$APPEND(OCXCREF,OCXDD),OCXFLD,.
          OCXDA,OCXLVL+1)
         D POP(.OCXDA)
         Q
         ;
LOADWORD(RREF,OCXDD,OCXFLD,OCXSUB) --
          ;
         ;
         N QUIT,DDPATH,INDEX,OCXDA,OCXGREF
         S DDPATH=$P($P($$APPEND(RREF,OCXDD),"(",2),")",1)
         F INDEX=1:1:$L(DDPATH,",") S OCXDA($L(DDPATH,",")-INDEX)=+$P($P(DDPATH,
          ",",INDEX),":",2)
         S OCXDA=$G(OCXDA(0)) K OCXDA(0)
         Q:(OCXFLAG["D") 0
         I (OCXFLAG["A") S QUIT=$$READ("Y"," Do you want to reload the local '"_
          $$FIELD^OCXSENDD(+OCXDD,+OCXFLD,"LABEL")_"' field ?","YES") Q:'QUIT (Q
          UIT[U)
         S OCXGREF=$$GETREF(+OCXDD,.OCXDA,$L(DDPATH,",")-1) Q:'$L(OCXGREF)
         D WORD(OCXDD,OCXGREF,OCXFLD,.OCXDA,RREF)
         Q 0
         ;
GETREF(OCXDD,OCXDA,OCXLVL) --
          ;
         ;
         Q:'OCXDD ""
         ;
         N OCXIENS,OCXERR,OCXX
         S OCXIENS=$$IENS^DILF(.OCXDA),OCXERR=""
         S OCXX=$$ROOT^DILFD(OCXDD,OCXIENS,0,OCXERR)
         Q OCXX
         ;
WORD(DD,GREF,FLD,DA,RREF) --
          ;
         ;
         N SUB,GLROOT,LINE
         S SUB=$P($$FIELD^OCXSENDD(+DD,FLD,"GLOBAL SUBSCRIPT LOCATION"),";",1) S
          :'(SUB=+SUB) SUB=""""_SUB_""""
         S GLROOT=GREF_DA_","_SUB_")" K @GLROOT
         S LINE=0 F  S LINE=$O(@RREF@(DD,FLD,LINE)) Q:'LINE  D
         .S @GLROOT@($O(@GLROOT@(""),-1)+1,0)=@RREF@(DD,FLD,LINE)
         S LINE=$O(@GLROOT@(""),-1),@GLROOT@(0)=U_U_LINE_U_LINE_U_$$DATE("T")_U
         ;
         Q
         ;
DATE(X)  N %DT,Y S %DT="" D ^%DT Q +Y
         ;
DIE(OCXDD,OCXDIC,OCXFLD,OCXVAL,OCXDA,OCXLVL) --
          ;
         ;
         N DIC,DIE,X,Y,DR,DA,OCXDVAL,OCXPTR,OCXGREF,D0,OCXSCR
         S (D0,DA)=OCXDA,(DIC,DIE)=OCXDIC,DR=""
         S:OCXLVL D0=OCXDA(1),DR="S DA(1)="_(+D0)_",D0="_(+D0)_";"
         S:OCXVAL="?" OCXVAL="? " S DR=DR_OCXFLD_"///^S X=OCXVAL"
         I '(OCXVAL="@") W !,?(OCXLVL*5),$$FIELD^OCXSENDD(+OCXDD,OCXFLD,"LABEL")
          ,": ",OCXVAL
         ;
         I '(OCXVAL="@") D
         .N OCXIEN,SHORT
         .S OCXPTR=+$P($$FIELD^OCXSENDD(+OCXDD,OCXFLD,"SPECIFIER"),"P",2)
         .Q:'OCXPTR
         .S OCXGREF="^"_$$FIELD^OCXSENDD(+OCXDD,OCXFLD,"POINTER")
         .I '($E(OCXGREF,1,4)="^OCX"),'(OCXGREF="^ORD(100.9,"),'(OCXGREF="^ORD(1
          00.8,") Q
         .Q:$$DIC(OCXGREF,OCXVAL,0)
         .S OCXIEN=$$DIC(OCXGREF,OCXVAL,1)
         .S ^TMP("OCXRULE",$J,"B",OCXPTR,OCXVAL,OCXIEN)=""
         ;
         S OCXSCR=1
         D ^DIE
         ;
         ; I $D(Y) -> DIE FILER ERROR
         I $D(Y) W "   ^DIE filer data error..." S OCXDIER=$G(OCXDIER)+1
         I '$D(Y) W "    ...Correct data Filed"
         ;
         Q
         ;
DIC(DIC,X,OCXADD) --
          N OCXSCR S DIC(0)="",OCXSCR=1 S:OCXADD DIC(0)="L" D ^DIC Q:(+Y>0) +Y Q
 
          0
         ;
PUSH(OCXDA) --
          ;
         N OCXSUB S OCXSUB="" F  S OCXSUB=$O(OCXDA(OCXSUB),-1) Q:'OCXSUB  S OCXD
          A(OCXSUB+1)=OCXDA(OCXSUB)
         S OCXDA(1)=OCXDA,OCXDA=0
         Q
         ;
POP(OCXDA) --
          ;
         N OCXSUB S OCXSUB="" F  S OCXSUB=$O(OCXDA(OCXSUB)) Q:'OCXSUB  S OCXDA(O
          CXSUB)=$G(OCXDA(OCXSUB+1))
         S OCXDA=OCXDA(1) K OCXDA($O(OCXDA(""),-1))
         Q
         ;
APPEND(ARRAY,OCXSUB) --
          ;
         S:'(OCXSUB=+OCXSUB) OCXSUB=""""_OCXSUB_""""
         Q:'(ARRAY["(") ARRAY_"("_OCXSUB_")"
         Q $E(ARRAY,1,$L(ARRAY)-1)_","_OCXSUB_")"
         ;
READ(OCXZ0,OCXZA,OCXZB,OCXZL) --
          ;
         N OCXLINE,DIR,DTOUT,DUOUT,DIRUT,DIROUT
         Q:'$L($G(OCXZ0)) U
         S DIR(0)=OCXZ0
         S:$L($G(OCXZA)) DIR("A")=OCXZA
         S:$L($G(OCXZB)) DIR("B")=OCXZB
         F OCXLINE=1:1:($G(OCXZL)-1) W !
         D ^DIR
         I $D(DTOUT)!$D(DUOUT)!$D(DIRUT)!$D(DIROUT) Q U
         Q Y
         ;
PAUSE()  W "  Press Enter " R X:DTIME W ! Q (X[U)
         ;

*****   INDEX OF ORY4272   *****


Local Variables      Line Occurrences   ( >> not killed explicitly)
                                        ( * Changed  ! Killed  ~ Newed)
   %DT          DATE~*
   ARRAY        APPEND~,APPEND+2,APPEND+3
   D0           DIE+2~,DIE+3*,DIE+4*
   DA           WORD~,WORD+4,DIE+2~,DIE+3*
   DD           WORD~,WORD+3,WORD+5,WORD+6
   DDPATH       LOADWORD+2~,LOADWORD+3*,LOADWORD+4,LOADWORD+8
   DIC          DIE+2~,DIE+3*,DIC~
   DIC(0        DIC*
   DIE          DIE+2~,DIE+3*
   DIR          READ+1~
   DIR("A"      READ+4*
   DIR("B"      READ+5*
   DIR(0        READ+3*
   DIROUT       READ+1~,READ+8
   DIRUT        READ+1~,READ+8
   DR           DIE+2~,DIE+3*,DIE+4*,DIE+5*
   DTIME        PAUSE
   DTOUT        READ+1~,READ+8
   DUOUT        READ+1~,READ+8
   FLD          WORD~,WORD+3,WORD+5,WORD+6
   GLROOT       WORD+2~,WORD+4*,WORD+6,WORD+7
   GREF         WORD~,WORD+4
   INDEX        LOADWORD+2~,LOADWORD+4*
   LINE         WORD+2~,WORD+5*,WORD+6,WORD+7*
   OCXADD       DIC~
   OCXCREF      ADDREC~,ADDREC+3,ADDREC+4,ADDREC+9,CREATE~,CREATE+6,CREATE+18
                CREATE+19,CREATE+20,CREATE+23,CREATE+24
   OCXDA        ADDREC+2~,ADDREC+9*,CREATE~,CREATE+4,CREATE+7,CREATE+8
                CREATE+9*,CREATE+10*,CREATE+11*,CREATE+12*,CREATE+14,CREATE+19
                CREATE+20,CREATE+22,CREATE+24*,CREATE+25,LOADWORD+2~
                LOADWORD+5*,LOADWORD+8,LOADWORD+9,GETREF~,GETREF+5,DIE~,DIE+3
                PUSH~,PUSH+2*,POP~,POP+2*
   OCXDA(       LOADWORD+4*,PUSH+1*,POP+1*,POP+2!
   OCXDA(""     POP+2
   OCXDA(0      LOADWORD+5!
   OCXDA(1      DIE+4,PUSH+2*,POP+2
   OCXDD        ADDREC+2~,ADDREC+3*,ADDREC+4,ADDREC+9,ADDREC+10,CREATE~
                CREATE+6,CREATE+7,CREATE+9,CREATE+16,CREATE+18,CREATE+19
                CREATE+20,CREATE+23,CREATE+24,LOADWORD~,LOADWORD+3,LOADWORD+7
                LOADWORD+8,LOADWORD+9,GETREF~,GETREF+2,GETREF+6,DIE~,DIE+6
                DIE+10,DIE+12
   OCXDIC       DIE~,DIE+3
>> OCXDIER      DIE+22*
   OCXDVAL      DIE+2~
   OCXERR       GETREF+4~,GETREF+5*,GETREF+6
>> OCXFLAG      ADDREC+7,LOADWORD+6,LOADWORD+7
   OCXFLD       CREATE+2~,CREATE+18*,CREATE+19,CREATE+20,CREATE+23*,CREATE+24
                LOADWORD~,LOADWORD+7,LOADWORD+9,DIE~,DIE+5,DIE+6,DIE+10,DIE+12
   OCXGREF      ADDREC+2~,CREATE+2~,CREATE+7*,CREATE+10,CREATE+11,CREATE+12
                CREATE+16,CREATE+19,CREATE+20,LOADWORD+2~,LOADWORD+8*
                LOADWORD+9,DIE+2~,DIE+12*,DIE+13,DIE+14,DIE+15
   OCXIEN       DIE+9~,DIE+15*,DIE+16
   OCXIENS      GETREF+4~,GETREF+5*,GETREF+6
   OCXKEY       CREATE+2~,CREATE+6*,CREATE+9
   OCXLINE      READ+1~,READ+6*
   OCXLVL       CREATE~,CREATE+7,CREATE+19,CREATE+24,GETREF~,DIE~,DIE+4,DIE+6
   OCXNAME      ADDREC+2~,ADDREC+4*,ADDREC+10
   OCXPTR       DIE+2~,DIE+10*,DIE+11,DIE+16
   OCXSCR       DIE+2~,DIE+18*,DIC~*
   OCXSUB       LOADWORD~,PUSH+1~*,POP+1~*,APPEND~,APPEND+1*,APPEND+2,APPEND+3
   OCXVAL       DIE~,DIE+5*,DIE+6,DIE+8,DIE+14,DIE+15,DIE+16
   OCXX         GETREF+4~,GETREF+6*,GETREF+7
   OCXZ0        READ~,READ+2,READ+3
   OCXZA        READ~,READ+4
   OCXZB        READ~,READ+5
   OCXZL        READ~,READ+6
   QUIT         ADDREC+2~,LOADWORD+2~,LOADWORD+7*
   RREF         LOADWORD~,LOADWORD+3,LOADWORD+9,WORD~,WORD+5,WORD+6
   SHORT        DIE+9~
   SUB          WORD+2~,WORD+3*,WORD+4
   U            CREATE+16,LOADWORD+7,WORD+7,READ+2,READ+8,PAUSE
   X            DATE~,DIE+2~,DIC~,PAUSE*
   Y            DATE~,DIE+2~,DIE+22,DIE+23,DIC,READ+9

Global Variables  ( * Changed  ! Killed)
   ^TMP("OCXRULE"      ADDREC+10*,CREATE+9,DIE+16*

Naked Globals
   NONE

Cache Objects
   NONE

Marked Items
   NONE

Label References
   $$APPEND     CREATE+24,LOADWORD+3
   $$DATE       WORD+7
   $$DIC        DIE+14,DIE+15
   $$GETREF     CREATE+7,LOADWORD+8
   $$READ       LOADWORD+7
   CREATE       ADDREC+9,CREATE+24
   DIE          CREATE+19
   POP          CREATE+25
   PUSH         CREATE+22
   WORD         CREATE+20,LOADWORD+9

External References
   ^%DT                DATE
   ^DIC                DIC
   ^DIE                DIE+19
   $$IENS^DILF         GETREF+5
   $$ROOT^DILFD        GETREF+6
   ^DIR                READ+7
   $$FIELD^OCXSENDD    LOADWORD+7,WORD+3,DIE+6,DIE+10,DIE+12
   $$FILEHDR^OCXSENDD  CREATE+16
   $$EXFLD^ORY4271     CREATE+18

*****   END   *****

   Press return to continue:

























ORY4273  * *  87 Lines,  2931 Bytes, Checksum: B12998366
                                                  Jun 16, 2016@07:08:53 page 14
              161 bytes in comments
ORY4273  ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install
           of OR*3*427) ;MAY 10,2016 at 13:31
         ;;3.0;ORDER ENTRY/RESULTS REPORTING;**427**;Dec 17,1997;Build 242
         ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
         ;
S        ;
         ;  Multiple Utilities
         Q
         ;
ADDMULT(OCXCREF,OCXDD,OCXFLD) --
          ;
         ;
         ;
         N QUIT,OCXDA,OCXGREF,OCXNAME,DDPATH,INDEX
         ;
         S DDPATH=$P($P($$APPEND($$APPEND(OCXCREF,OCXDD),OCXFLD),"(",2),")",1)
         F INDEX=1:1:$L(DDPATH,",") S OCXDA($L(DDPATH,",")-INDEX)=+$P($P(DDPATH,
          ",",INDEX),":",2)
         S OCXDA=$G(OCXDA(0)) K OCXDA(0)
         ;
         Q:(OCXFLAG["D") 0
         I (OCXFLAG["A") S QUIT=$$READ("Y"," Do you want to add a local '"_$$FIL
          ENAME^OCXSENDD(+OCXFLD)_"' multiple ?","YES") Q:'QUIT (QUIT[U)
         ;
         S OCXGREF=$$GETREF^ORY4272(+OCXFLD,.OCXDA,1)
         D CREATE($$APPEND(OCXCREF,OCXDD),OCXFLD,.OCXDA,1)
         ;
         Q 0
         ;
DELMULT(OCXCREF,OCXDD) --
          ;
         ;
         N QUIT,OCXGREF,DA,INDEX,DDPATH
         ;
         Q:(OCXFLAG["D") 0
         I (OCXFLAG["A") S QUIT=$$READ("Y"," Do you want to delete the local '"_
          $$FILENAME^OCXSENDD(+OCXDD)_"' multiple ?","YES") Q:'QUIT (QUIT[U)
         ;
         S DDPATH=$P($P($$APPEND(OCXCREF,OCXDD),"(",2),")",1)
         F INDEX=1:1:$L(DDPATH,",") S DA($L(DDPATH,",")-INDEX)=+$P($P(DDPATH,","
          ,INDEX),":",2)
         S DA=$G(DA(0)) K DA(0)
         S OCXGREF=$$GETREF^ORY4272(+OCXDD,.DA,1)
         ;
         D DIE^ORY4272(+OCXDD,OCXGREF,.01,"@",.DA,$L(DDPATH,",")-1)
         K @OCXCREF@(OCXDD) W !!,"  deleted..."
         ;
         Q 0
         ;
CREATE(OCXCREF,OCXDD,OCXDA,OCXLVL) --
          ;
         ;
         N OCXFLD,OCXGREF
         ;
         S OCXGREF=$$GETREF^ORY4272(+OCXDD,.OCXDA,OCXLVL) Q:'$L(OCXGREF)  S:'OCX
          DA OCXDA=$O(@(OCXGREF_"""@"")"),-1)+1
         ;
         I '$D(@(OCXGREF_"0)")) S @(OCXGREF_"0)")=U_$$FILEHDR^OCXSENDD(+OCXDD)_U
          _U
         ;
         S OCXFLD=0 F  S OCXFLD=$O(@OCXCREF@(OCXDD,OCXFLD)) Q:'OCXFLD  Q:(OCXFLD
          [":")  I '$$EXFLD^ORY4271(+OCXDD,OCXFLD) D
         .I $L($G(@OCXCREF@(OCXDD,OCXFLD,"E"))) D DIE^ORY4272(OCXDD,OCXGREF,OCXF
          LD,@OCXCREF@(OCXDD,OCXFLD,"E"),.OCXDA,OCXLVL)
         ;
         D PUSH(.OCXDA)
         S OCXFLD="" F  S OCXFLD=$O(@OCXCREF@(OCXDD,OCXFLD)) Q:'$L(OCXFLD)  I (O
          CXFLD[":") D
         .S OCXDA=$P(OCXFLD,":",2) W ! D CREATE($$APPEND(OCXCREF,OCXDD),OCXFLD,.
          OCXDA,OCXLVL+1)
         D POP(.OCXDA)
         Q
         ;
PUSH(OCXDA) --
          ;
         N OCXSUB S OCXSUB="" F  S OCXSUB=$O(OCXDA(OCXSUB),-1) Q:'OCXSUB  S OCXD
          A(OCXSUB+1)=OCXDA(OCXSUB)
         S OCXDA(1)=OCXDA,OCXDA=0
         Q
         ;
POP(OCXDA) --
          ;
         N OCXSUB S OCXSUB="" F  S OCXSUB=$O(OCXDA(OCXSUB)) Q:'OCXSUB  S OCXDA(O
          CXSUB)=$G(OCXDA(OCXSUB+1))
         S OCXDA=OCXDA(1) K OCXDA($O(OCXDA(""),-1))
         Q
         ;
APPEND(ARRAY,OCXSUB) --
          ;
         S:'(OCXSUB=+OCXSUB) OCXSUB=""""_OCXSUB_""""
         Q:'(ARRAY["(") ARRAY_"("_OCXSUB_")"
         Q $E(ARRAY,1,$L(ARRAY)-1)_","_OCXSUB_")"
         ;
READ(OCXZ0,OCXZA,OCXZB,OCXZL) --
          ;
         N OCXLINE,DIR,DTOUT,DUOUT,DIRUT,DIROUT
         Q:'$L($G(OCXZ0)) U
         S DIR(0)=OCXZ0
         S:$L($G(OCXZA)) DIR("A")=OCXZA
         S:$L($G(OCXZB)) DIR("B")=OCXZB
         F OCXLINE=1:1:($G(OCXZL)-1) W !
         D ^DIR
         I $D(DTOUT)!$D(DUOUT)!$D(DIRUT)!$D(DIROUT) Q U
         Q Y
         ;
PAUSE()  W "  Press Enter " R X:DTIME W ! Q (X[U)
         ;

*****   INDEX OF ORY4273   *****


Local Variables      Line Occurrences   ( >> not killed explicitly)
                                        ( * Changed  ! Killed  ~ Newed)
   ARRAY        APPEND~,APPEND+2,APPEND+3
   DA           DELMULT+2~,DELMULT+9*,DELMULT+10,DELMULT+12
   DA(          DELMULT+8*
   DA(0         DELMULT+9!
   DDPATH       ADDMULT+3~,ADDMULT+5*,ADDMULT+6,DELMULT+2~,DELMULT+7*,DELMULT+8
                DELMULT+12
   DIR          READ+1~
   DIR("A"      READ+4*
   DIR("B"      READ+5*
   DIR(0        READ+3*
   DIROUT       READ+1~,READ+8
   DIRUT        READ+1~,READ+8
   DTIME        PAUSE
   DTOUT        READ+1~,READ+8
   DUOUT        READ+1~,READ+8
   INDEX        ADDMULT+3~,ADDMULT+6*,DELMULT+2~,DELMULT+8*
   OCXCREF      ADDMULT~,ADDMULT+5,ADDMULT+13,DELMULT~,DELMULT+7,DELMULT+13
                CREATE~,CREATE+8,CREATE+9,CREATE+12,CREATE+13
   OCXDA        ADDMULT+3~,ADDMULT+7*,ADDMULT+12,ADDMULT+13,CREATE~,CREATE+4*
                CREATE+9,CREATE+11,CREATE+13*,CREATE+14,PUSH~,PUSH+2*,POP~
                POP+2*
   OCXDA(       ADDMULT+6*,PUSH+1*,POP+1*,POP+2!
   OCXDA(""     POP+2
   OCXDA(0      ADDMULT+7!
   OCXDA(1      PUSH+2*,POP+2
   OCXDD        ADDMULT~,ADDMULT+5,ADDMULT+13,DELMULT~,DELMULT+5,DELMULT+7
                DELMULT+10,DELMULT+12,DELMULT+13,CREATE~,CREATE+4,CREATE+6
                CREATE+8,CREATE+9,CREATE+12,CREATE+13
>> OCXFLAG      ADDMULT+9,ADDMULT+10,DELMULT+4,DELMULT+5
   OCXFLD       ADDMULT~,ADDMULT+5,ADDMULT+10,ADDMULT+12,ADDMULT+13,CREATE+2~
                CREATE+8*,CREATE+9,CREATE+12*,CREATE+13
   OCXGREF      ADDMULT+3~,ADDMULT+12*,DELMULT+2~,DELMULT+10*,DELMULT+12
                CREATE+2~,CREATE+4*,CREATE+6,CREATE+9
   OCXLINE      READ+1~,READ+6*
   OCXLVL       CREATE~,CREATE+4,CREATE+9,CREATE+13
   OCXNAME      ADDMULT+3~
   OCXSUB       PUSH+1~*,POP+1~*,APPEND~,APPEND+1*,APPEND+2,APPEND+3
   OCXZ0        READ~,READ+2,READ+3
   OCXZA        READ~,READ+4
   OCXZB        READ~,READ+5
   OCXZL        READ~,READ+6
   QUIT         ADDMULT+3~,ADDMULT+10*,DELMULT+2~,DELMULT+5*
   U            ADDMULT+10,DELMULT+5,CREATE+6,READ+2,READ+8,PAUSE
>> X            PAUSE*
>> Y            READ+9

Global Variables  ( * Changed  ! Killed)
   NONE

Naked Globals
   NONE

Cache Objects
   NONE

Marked Items
   NONE

Label References
   $$APPEND     ADDMULT+5,ADDMULT+13,DELMULT+7,CREATE+13
   $$READ       ADDMULT+10,DELMULT+5
   CREATE       ADDMULT+13,CREATE+13
   POP          CREATE+14
   PUSH         CREATE+11

External References
   ^DIR                READ+7
   $$FILEHDR^OCXSENDD  CREATE+6
   $$FILENAME^OCXSENDD ADDMULT+10,DELMULT+5
   $$EXFLD^ORY4271     CREATE+8
   $$GETREF^ORY4272    ADDMULT+12,DELMULT+10,CREATE+4
   DIE^ORY4272         DELMULT+12,CREATE+9

*****   END   *****

   Press return to continue:

























ORY4274  * *  85 Lines,  3060 Bytes, Checksum: B13528386
                                                  Jun 16, 2016@07:08:53 page 15
              153 bytes in comments
ORY4274  ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install
           of OR*3*427) ;MAY 10,2016 at 13:31
         ;;3.0;ORDER ENTRY/RESULTS REPORTING;**427**;Dec 17,1997;Build 242
         ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
         ;
S        ;
         ;  Field Utilities
         Q
         ;
EDITFLD(OCXCREF,OCXDD,OCXFLD,OCXSUB) --
          ;
         ;
         N DDPATH,OCXDA,OCXPC,OCXLVL,QUIT
         ;
         S QUIT=0,DDPATH=$P($P($$APPEND(OCXCREF,OCXDD),"(",2),")",1)
         S OCXLVL=$L(DDPATH,",")
         F OCXPC=1:1:OCXLVL S OCXDA(OCXLVL-OCXPC)=+$P($P(DDPATH,",",OCXPC),":",2
          )
         S OCXDA=OCXDA(0) K OCXDA(0)
         I $L($G(@OCXCREF@(OCXDD,OCXFLD,"E"))) D
         .N RESP
         .Q:(OCXFLAG["D")
         .I (OCXFLAG["A") S RESP=$$READ("Y"," Do you want to change the local '"
          _$$FILENAME^OCXSENDD(+OCXDD)_"' field ?","YES") I 'RESP S QUIT=(RESP[U
          ) Q
         .S OCXGREF=$$GETREF^ORY4272(+OCXDD,.OCXDA,OCXLVL-1) Q:'$L(OCXGREF)
         .D DIE^ORY4272(OCXDD,OCXGREF,OCXFLD,@OCXCREF@(OCXDD,OCXFLD,"E"),.OCXDA,
          OCXLVL-1)
         ;
         Q QUIT
         ;
DELFLD(OCXCREF,OCXDD,OCXFLD,OCXSUB) --
          ;
         ;
         N DDPATH,OCXDA,OCXPC,OCXLVL,QUIT,RESP
         ;
         S QUIT=0,DDPATH=$P($P($$APPEND(OCXCREF,OCXDD),"(",2),")",1)
         S OCXLVL=$L(DDPATH,",")
         F OCXPC=1:1:OCXLVL S OCXDA(OCXLVL-OCXPC)=+$P($P(DDPATH,",",OCXPC),":",2
          )
         S OCXDA=OCXDA(0) K OCXDA(0)
         Q:(OCXFLAG["D") 0
         I (OCXFLAG["A") S RESP=$$READ("Y"," Do you want to Delete the local '"_
          $$FILENAME^OCXSENDD(+OCXDD)_"' value ?","YES") I 'RESP S QUIT=(RESP[U)
           Q QUIT
         S OCXGREF=$$GETREF^ORY4272(+OCXDD,.OCXDA,OCXLVL-1) Q:'$L(OCXGREF)
         D DIE^ORY4272(OCXDD,OCXGREF,OCXFLD,"@",.OCXDA,OCXLVL-1)
         ;
         Q QUIT
         ;
CREATE(OCXCREF,OCXDD,OCXDA,OCXLVL) --
          ;
         ;
         N OCXFLD,OCXGREF
         ;
         S OCXGREF=$$GETREF^ORY4272(+OCXDD,.OCXDA,OCXLVL) Q:'$L(OCXGREF)  S:'OCX
          DA OCXDA=$O(@(OCXGREF_"""@"")"),-1)+1
         ;
         I '$D(@(OCXGREF_"0)")) S @(OCXGREF_"0)")=U_$$FILEHDR^OCXSENDD(+OCXDD)_U
          _U
         ;
         S OCXFLD=0 F  S OCXFLD=$O(@OCXCREF@(OCXDD,OCXFLD)) Q:'OCXFLD  Q:(OCXFLD
          [":")  I '$$EXFLD^ORY4271(+OCXDD,OCXFLD) D
         .I $L($G(@OCXCREF@(OCXDD,OCXFLD,"E"))) D DIE^ORY4272(OCXDD,OCXGREF,OCXF
          LD,@OCXCREF@(OCXDD,OCXFLD,"E"),.OCXDA,OCXLVL)
         ;
         D PUSH(.OCXDA)
         S OCXFLD="" F  S OCXFLD=$O(@OCXCREF@(OCXDD,OCXFLD)) Q:'$L(OCXFLD)  I (O
          CXFLD[":") D
         .S OCXDA=$P(OCXFLD,":",2) W ! D CREATE($$APPEND(OCXCREF,OCXDD),OCXFLD,.
          OCXDA,OCXLVL+1)
         D POP(.OCXDA)
         Q
         ;
PUSH(OCXDA) --
          ;
         N OCXSUB S OCXSUB="" F  S OCXSUB=$O(OCXDA(OCXSUB),-1) Q:'OCXSUB  S OCXD
          A(OCXSUB+1)=OCXDA(OCXSUB)
         S OCXDA(1)=OCXDA,OCXDA=0
         Q
         ;
POP(OCXDA) --
          ;
         N OCXSUB S OCXSUB="" F  S OCXSUB=$O(OCXDA(OCXSUB)) Q:'OCXSUB  S OCXDA(O
          CXSUB)=$G(OCXDA(OCXSUB+1))
         S OCXDA=OCXDA(1) K OCXDA($O(OCXDA(""),-1))
         Q
         ;
APPEND(ARRAY,OCXSUB) --
          ;
         S:'(OCXSUB=+OCXSUB) OCXSUB=""""_OCXSUB_""""
         Q:'(ARRAY["(") ARRAY_"("_OCXSUB_")"
         Q $E(ARRAY,1,$L(ARRAY)-1)_","_OCXSUB_")"
         ;
READ(OCXZ0,OCXZA,OCXZB,OCXZL) --
          ;
         N OCXLINE,DIR,DTOUT,DUOUT,DIRUT,DIROUT
         Q:'$L($G(OCXZ0)) U
         S DIR(0)=OCXZ0
         S:$L($G(OCXZA)) DIR("A")=OCXZA
         S:$L($G(OCXZB)) DIR("B")=OCXZB
         F OCXLINE=1:1:($G(OCXZL)-1) W !
         D ^DIR
         I $D(DTOUT)!$D(DUOUT)!$D(DIRUT)!$D(DIROUT) Q U
         Q Y
         ;
PAUSE()  W "  Press Enter " R X:DTIME W ! Q (X[U)
         ;

*****   INDEX OF ORY4274   *****


Local Variables      Line Occurrences   ( >> not killed explicitly)
                                        ( * Changed  ! Killed  ~ Newed)
   ARRAY        APPEND~,APPEND+2,APPEND+3
   DDPATH       EDITFLD+2~,EDITFLD+4*,EDITFLD+5,EDITFLD+6,DELFLD+2~,DELFLD+4*
                DELFLD+5,DELFLD+6
   DIR          READ+1~
   DIR("A"      READ+4*
   DIR("B"      READ+5*
   DIR(0        READ+3*
   DIROUT       READ+1~,READ+8
   DIRUT        READ+1~,READ+8
   DTIME        PAUSE
   DTOUT        READ+1~,READ+8
   DUOUT        READ+1~,READ+8
   OCXCREF      EDITFLD~,EDITFLD+4,EDITFLD+8,EDITFLD+13,DELFLD~,DELFLD+4
                CREATE~,CREATE+8,CREATE+9,CREATE+12,CREATE+13
   OCXDA        EDITFLD+2~,EDITFLD+7*,EDITFLD+12,EDITFLD+13,DELFLD+2~,DELFLD+7*
                DELFLD+10,DELFLD+11,CREATE~,CREATE+4*,CREATE+9,CREATE+11
                CREATE+13*,CREATE+14,PUSH~,PUSH+2*,POP~,POP+2*
   OCXDA(       EDITFLD+6*,DELFLD+6*,PUSH+1*,POP+1*,POP+2!
   OCXDA(""     POP+2
   OCXDA(0      EDITFLD+7!,DELFLD+7!
   OCXDA(1      PUSH+2*,POP+2
   OCXDD        EDITFLD~,EDITFLD+4,EDITFLD+8,EDITFLD+11,EDITFLD+12,EDITFLD+13
                DELFLD~,DELFLD+4,DELFLD+9,DELFLD+10,DELFLD+11,CREATE~,CREATE+4
                CREATE+6,CREATE+8,CREATE+9,CREATE+12,CREATE+13
>> OCXFLAG      EDITFLD+10,EDITFLD+11,DELFLD+8,DELFLD+9
   OCXFLD       EDITFLD~,EDITFLD+8,EDITFLD+13,DELFLD~,DELFLD+11,CREATE+2~
                CREATE+8*,CREATE+9,CREATE+12*,CREATE+13
   OCXGREF      EDITFLD+12*,EDITFLD+13,DELFLD+10*,DELFLD+11,CREATE+2~,CREATE+4*
                CREATE+6,CREATE+9
   OCXLINE      READ+1~,READ+6*
   OCXLVL       EDITFLD+2~,EDITFLD+5*,EDITFLD+6,EDITFLD+12,EDITFLD+13,DELFLD+2~
                DELFLD+5*,DELFLD+6,DELFLD+10,DELFLD+11,CREATE~,CREATE+4
                CREATE+9,CREATE+13
   OCXPC        EDITFLD+2~,EDITFLD+6*,DELFLD+2~,DELFLD+6*
   OCXSUB       EDITFLD~,DELFLD~,PUSH+1~*,POP+1~*,APPEND~,APPEND+1*,APPEND+2
                APPEND+3
   OCXZ0        READ~,READ+2,READ+3
   OCXZA        READ~,READ+4
   OCXZB        READ~,READ+5
   OCXZL        READ~,READ+6
   QUIT         EDITFLD+2~,EDITFLD+4*,EDITFLD+11*,EDITFLD+15,DELFLD+2~
                DELFLD+4*,DELFLD+9*,DELFLD+13
   RESP         EDITFLD+9~,EDITFLD+11*,DELFLD+2~,DELFLD+9*
   U            EDITFLD+11,DELFLD+9,CREATE+6,READ+2,READ+8,PAUSE
>> X            PAUSE*
>> Y            READ+9

Global Variables  ( * Changed  ! Killed)
   NONE

Naked Globals
   NONE

Cache Objects
   NONE

Marked Items
   NONE

Label References
   $$APPEND     EDITFLD+4,DELFLD+4,CREATE+13
   $$READ       EDITFLD+11,DELFLD+9
   CREATE       CREATE+13
   POP          CREATE+14
   PUSH         CREATE+11

External References
   ^DIR                READ+7
   $$FILEHDR^OCXSENDD  CREATE+6
   $$FILENAME^OCXSENDD EDITFLD+11,DELFLD+9
   $$EXFLD^ORY4271     CREATE+8
   $$GETREF^ORY4272    EDITFLD+12,DELFLD+10,CREATE+4
   DIE^ORY4272         EDITFLD+13,DELFLD+11,CREATE+9

*****   END   *****

   Press return to continue:

























ORY427ES * *  86 Lines,  3169 Bytes, Checksum: B12600854
                                                  Jun 16, 2016@07:08:53 page 16
              126 bytes in comments
ORY427ES ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install
           of OR*3*427) ;MAY 10,2016 at 13:31
         ;;3.0;ORDER ENTRY/RESULTS REPORTING;**427**;Dec 17,1997;Build 242
         ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
         ;
S        ;
         ;
         N OCXDIER,QUIT,LINE,TEXT,REMOTE,LOCAL,D0,OPCODE,REF,OCXFLAG S QUIT=0
         N OCXAUTO,OCZSCR
         ;
         D DOT
         I $L($T(VERSION^OCXOCMP)),($$VERSION^OCXOCMP="ORDER CHECK EXPERT versio
          n 1.01 released OCT 29,1998"),1
         E  D  Q
         .W !
         .W !,"Rule Transport aborted, version mismatch."
         .W !,"Current Local version: ",$$VERSION^OCXOCMP
         .W !,"   Rule Transport Version: ORDER CHECK EXPERT version 1.01 releas
          ed OCT 29,1998"
         I '$D(DTIME) W !!,"DTIME not defined !!",!! Q
         W !!,"Order Check Expert System Rule Transporter"
         W !," Created: MAY 10,2016 at 13:31  at  NCCLAB1.AAC.DNS   "
         W !," Current Date: ",$$NOW^ORY4270,"  at  ",$$NETNAME^OCXSEND,!!
         S LASTFILE=0 K ^TMP("OCXRULE",$J)
         S ^TMP("OCXRULE",$J)=($P($H,",",2)+($H*86400)+(1*60*60))_" <- ^TMP ENTR
          Y EXPIRATION DATE FOR ^OCXOPURG"
         S OCXFLAG="O"
         ;
RUN      ;
         ;
         W !,"Loading Data " D ^ORY42701
         ;
         S LINE=0 F  S LINE=$O(^TMP("OCXRULE",$J,LINE)) Q:'LINE   D  Q:QUIT
         .D:'(LINE#50) STATUS^OCXOPOST(LINE,$O(^TMP("OCXRULE",$J," "),-1))
         .S TEXT=$G(^TMP("OCXRULE",$J,LINE)) I $L(TEXT) D  Q:QUIT
         ..S TEXT=$P(TEXT,";",2,999),OPCODE=$P(TEXT,U,1),TEXT=$P(TEXT,U,2,999)
         ..;
         ..I OPCODE="KEY" D DOT S LOCAL="",D0=$$GETFILE^ORY4270(+$P(TEXT,U,1),$P
          (TEXT,U,2),.LOCAL) S QUIT=(D0=(-10)) Q
         ..I OPCODE="R" S REF="REMOTE("_$P(TEXT,":",1)_":"_D0_$P(TEXT,":",2,99)_
          ")" Q
         ..I OPCODE="D",$D(REF) S @REF=$P(TEXT,U,1,999) K REF Q
         ..;
         ..I OPCODE="EOR" S QUIT=$$COMPARE^ORY4271(.LOCAL,.REMOTE) K LOCAL,REMOT
          E Q
         ..I OPCODE="EOF" K LOCAL,REMOTE Q
         ..I OPCODE="SOF" W !,"  Installing '",TEXT,"' records... " Q
         ..I OPCODE="ROOT" D  Q
         ...N FILE,DATA
         ...S FILE=U_$P(TEXT,U,1),DATA=$P(TEXT,U,2,3)
         ...I ($P($G(@FILE),U,1,2)=DATA) Q
         ...S $P(@FILE,U,1,2)=DATA
         ...W !,"  Restoring file #",(+$P(DATA,U,2))," zero node"
         ..;
         ..W !,"Unknown OpCode: ",OPCODE,"  in: ",TEXT S QUIT=$$PAUSE^ORY4270 W 
          !
         ;
         K ^TMP("OCXRULE",$J)
         ;
         I $D(^OCXS) D
         .N FILE,DO,PD0,CNT
         .S FILE=0 F  S FILE=$O(^OCXS(FILE)) Q:'FILE  D
         ..S D0=0 F CNT=0:1 S PD0=D0,D0=$O(^OCXS(FILE,D0)) Q:'D0
         ..S $P(^OCXS(FILE,0),U,3,4)=CNT_U_PD0
         ;
         I $G(OCXDIER) D
         .W !!!!!!!
         .W !,?5,"******************** Warning ******************** "
         .W !,?7,+$G(OCXDIER)," data filing error",$S(($G(OCXDIER)=1):"",1:"s"),
          "."
         .W !,?7,"Some expert system rules may be incomplete."
         .W !,?5,"******************** Warning ******************** "
         I '$G(OCXDIER) W !!,?5," No data filing errors."
         W !!,"Transport Finished..."
         ;
         D
         .N OCXOETIM
         .D BMES^XPDUTL("---Creating Order Check Routines-----------------------
          ------------")
         .D AUTO^OCXOCMP
         ;
         Q
         ;
DOT      Q:$G(OCXAUTO)  W:($X>70) ! W " ." Q
         ;
READ(OCXZ0,OCXZA,OCXZB,OCXZL) --
          ;
         N OCXLINE,DIR,DTOUT,DUOUT,DIRUT,DIROUT
         Q:'$L($G(OCXZ0)) U
         S DIR(0)=OCXZ0
         S:$L($G(OCXZA)) DIR("A")=OCXZA
         S:$L($G(OCXZB)) DIR("B")=OCXZB
         F OCXLINE=1:1:($G(OCXZL)-1) W !
         D ^DIR
         I $D(DTOUT)!$D(DUOUT)!$D(DIRUT)!$D(DIROUT) Q U
         Q Y
         ;

*****   INDEX OF ORY427ES   *****


Local Variables      Line Occurrences   ( >> not killed explicitly)
                                        ( * Changed  ! Killed  ~ Newed)
   CNT          RUN+28~,RUN+30*,RUN+31
   D0           S+2~,RUN+9*,RUN+10,RUN+30*
   DATA         RUN+17~,RUN+18*,RUN+19,RUN+20,RUN+21
   DIR          READ+1~
   DIR("A"      READ+4*
   DIR("B"      READ+5*
   DIR(0        READ+3*
   DIROUT       READ+1~,READ+8
   DIRUT        READ+1~,READ+8
   DO           RUN+28~
   DTIME        S+12
   DTOUT        READ+1~,READ+8
   DUOUT        READ+1~,READ+8
   FILE         RUN+17~,RUN+18*,RUN+19,RUN+20*,RUN+28~,RUN+29*,RUN+30,RUN+31
>> LASTFILE     S+16*
   LINE         S+2~,RUN+4*,RUN+5,RUN+6
   LOCAL        S+2~,RUN+9*,RUN+13!,RUN+14!
   OCXAUTO      S+3~,DOT
   OCXDIER      S+2~,RUN+33,RUN+36,RUN+39
   OCXFLAG      S+2~,S+18*
   OCXLINE      READ+1~,READ+6*
   OCXOETIM     RUN+43~
   OCXZ0        READ~,READ+2,READ+3
   OCXZA        READ~,READ+4
   OCXZB        READ~,READ+5
   OCXZL        READ~,READ+6
   OCZSCR       S+3~
   OPCODE       S+2~,RUN+7*,RUN+9,RUN+10,RUN+11,RUN+13,RUN+14,RUN+15,RUN+16
                RUN+23
   PD0          RUN+28~,RUN+30*,RUN+31
   QUIT         S+2~*,RUN+4,RUN+6,RUN+9*,RUN+13*,RUN+23*
   REF          S+2~,RUN+10*,RUN+11!
   REMOTE       S+2~,RUN+13!,RUN+14!
   TEXT         S+2~,RUN+6*,RUN+7*,RUN+9,RUN+10,RUN+11,RUN+15,RUN+18,RUN+23
   U            RUN+7,RUN+9,RUN+11,RUN+18,RUN+19,RUN+20,RUN+21,RUN+31,READ+2
                READ+8
>> Y            READ+9

Global Variables  ( * Changed  ! Killed)
   ^OCXS               RUN+27
   ^OCXS(              RUN+29,RUN+30,RUN+31*
   ^TMP("OCXRULE"      S+16!,S+17*,RUN+4,RUN+5,RUN+6,RUN+25!

Naked Globals
   NONE

Cache Objects
   NONE

Marked Items
   $T(VERSION^OCXOCMP
                S+6

Label References
   DOT          S+5,RUN+9

External References
   ^DIR                READ+7
   $$VERSION^OCXOCMP   S+6,S+10
   AUTO^OCXOCMP        RUN+45
   VERSION^OCXOCMP     S+6
   STATUS^OCXOPOST     RUN+5
   $$NETNAME^OCXSEND   S+15
   $$GETFILE^ORY4270   RUN+9
   $$NOW^ORY4270       S+15
   $$PAUSE^ORY4270     RUN+23
   ^ORY42701           RUN+2
   $$COMPARE^ORY4271   RUN+13
   BMES^XPDUTL         RUN+44

*****   END   *****


--- CROSS-REFERENCING ALL ROUTINES ---
   Press return to continue:

























*****   Cross Reference of all Routines   *****   Jun 16, 2016@07:08:53 page 17

Local Variables    Routines   ( >> not killed explicitly)
                              ( * Changed  ! Killed  ~ Newed)
   %DT          ORY4270*~,ORY4271*~,ORY4272*~
   ARRAY        ORY4270~,ORY4271~,ORY4272~,ORY4273~,ORY4274~
   ARRAY(       ORY4270
   C            ORY4271*~
   C(""         ORY4271
   CHECK        ORY4270*~
   CNT          ORY4270*~,ORY427ES*~
   COUNT        ORALWORD*~,ORALWORD*~
   CREF         ORY4271~
   D0           ORY4270*~,ORY4271*~,ORY4272*~,ORY427ES*~
   D1           ORY4270*~
   DA           ORY4270~,ORY4271*~,ORY4272*~,ORY4273*~
   DA(          ORY4273*
   DA(0         ORY4273!
   DANEW        ORY4271*~
   DASH         ORY4270*~,ORY4271*~
   DATA         ORY4270*~,ORY427ES*~
   DATA(        ORY4270
   DATA(0       ORY4270
   DD           ORY4270*~,ORY4271*~,ORY4272~
   DDPATH       ORY4272*~,ORY4273*~,ORY4274*~
   DFN          ORALWORD~
   DIC          ORY4270~,ORY4272*~
   DIC(0        ORY4272*
   DIE          ORY4272*~
   DIQ          ORY4270*~
   DIQ(0        ORY4270*
   DIR          ORY4272~,ORY4273~,ORY4274~,ORY427ES~
   DIR("A"      ORY4272*,ORY4273*,ORY4274*,ORY427ES*
   DIR("B"      ORY4272*,ORY4273*,ORY4274*,ORY427ES*
   DIR(0        ORY4272*,ORY4273*,ORY4274*,ORY427ES*
   DIROUT       ORY4272~,ORY4273~,ORY4274~,ORY427ES~
   DIRUT        ORY4272~,ORY4273~,ORY4274~,ORY427ES~
   DO           ORY427ES~
   DR           ORY4270*~,ORY4272*~
   DTIME        ORY4270,ORY4271,ORY4272,ORY4273,ORY4274,ORY427ES
   DTOUT        ORY4272~,ORY4273~,ORY4274~,ORY427ES~
   DUOUT        ORY4272~,ORY4273~,ORY4274~,ORY427ES~
   DUZ          ORALWORD
   FILE         ORY4270~,ORY4271*~,ORY427ES*~
   FILEID       ORY4271*~
   FILENAME     ORY4271*~
   FLD          ORY4270~,ORY4272~
   GL           ORY4270*~
   GLNEXT       ORY4270~
   GLREF        ORY4270*~
   GLROOT       ORY4272*~
   GREF         ORY4272~
   INDEX        ORY4272*~,ORY4273*~
   KEY          ORY4270~
   L            ORY4271~
   L(""         ORY4271
>> LASTFILE     ORY4270*,ORY427ES*
   LEVL         ORY4271*~
   LINE         ORY4270*~,ORY42701*,ORY42702*,ORY42703*,ORY42704*,ORY42705*
                ORY42706*,ORY42707*,ORY42708*,ORY4271*~,ORY4272*~,ORY427ES*~
   LINES        ORY4270*~
   LINES(       ORY4270
   LINES(0      ORY4270
   LOCAL        ORY42701!,ORY42702!,ORY42703!,ORY42704!,ORY42705!,ORY42706!
                ORY42707!,ORY42708!,ORY427ES*!~
   LREF         ORY4271*~
   MSG          ORY4270~,ORY4271~
   NLINE        ORY4270*~
   OCXADD       ORY4272~
   OCXARY       ORY4270~
   OCXAUTO      ORY4270,ORY4271,ORY427ES~
   OCXCREF      ORY4271*~,ORY4272~,ORY4273~,ORY4274~
   OCXDA        ORY4272*~,ORY4272*~,ORY4273*~,ORY4274*~
   OCXDA(       ORY4272*!,ORY4273*!,ORY4274*!
   OCXDA(""     ORY4272,ORY4273,ORY4274
   OCXDA(0      ORY4272!,ORY4273!,ORY4274!
   OCXDA(1      ORY4272*,ORY4273*,ORY4274*
   OCXDD        ORY4271*~,ORY4271*~,ORY4272*~,ORY4272,ORY4273~,ORY4274~
   OCXDDPTH     ORY4271*~
   OCXDIC       ORY4272~
   OCXDIER      ORY4272*,ORY427ES~
   OCXDPTR      ORY4271~
   OCXDVAL      ORY4272~
   OCXERR       ORY4272*~
   OCXFLAG      ORY4272,ORY4273,ORY4274,ORY427ES*~
   OCXFLD       ORY4271*~,ORY4271~,ORY4272*~,ORY4273*~,ORY4274*~
   OCXFNAM      ORY4271*~
   OCXGREF      ORY4272*~,ORY4273*~,ORY4274*~
   OCXIEN       ORY4272*~
   OCXIENS      ORY4272*~
   OCXKEY       ORY4272*~
   OCXLINE      ORY4272*~,ORY4273*~,ORY4274*~,ORY427ES*~
   OCXLVL       ORY4272~,ORY4273~,ORY4274*~
   OCXNAME      ORY4272*~,ORY4273~
   OCXOETIM     ORY427ES~
   OCXPC        ORY4274*~
   OCXPTR       ORY4271*~,ORY4272*~
   OCXSCR       ORY4272*~
   OCXSUB       ORY4271*~,ORY4272*~,ORY4273*~,ORY4274*~
   OCXVAL       ORY4272*~
   OCXX         ORY4272*~
   OCXZ0        ORY4272~,ORY4273~,ORY4274~,ORY427ES~
   OCXZA        ORY4272~,ORY4273~,ORY4274~,ORY427ES~
   OCXZB        ORY4272~,ORY4273~,ORY4274~,ORY427ES~
   OCXZL        ORY4272~,ORY4273~,ORY4274~,ORY427ES~
   OCZSCR       ORY427ES~
   OPCODE       ORY42701!,ORY42702!,ORY42703!,ORY42704!,ORY42705!,ORY42706!
                ORY42707!,ORY42708!,ORY427ES*~
   ORCLOZ       ORALWORD*~
   ORCLPAT      ORALWORD*~
   ORDFN        ORALWORD*~
   ORDRG        ORALWORD~
   ORDS         ORALWORD~
   ORDUR        ORALWORD*~
   ORMAX        ORALWORD*~
   ORMAXDS      ORALWORD*~
   ORMAXQT      ORALWORD~
   ORMAXREF     ORALWORD~
   ORN          ORALWORD~
   OROI         ORALWORD*~
   ORPSDRUG     ORALWORD*~
   ORPSOI       ORALWORD*~
   ORQT         ORALWORD~
   ORQUIT       ORALWORD*~
   ORREF        ORALWORD~
   ORSCH        ORALWORD*~
   ORTYPE       ORALWORD~
   ORUPD        ORALWORD~
   ORX          ORALWORD~
   ORY          ORALWORD*!~
   ORY(         ORALWORD*,ORALWORD*
   ORY(0        ORALWORD*
   ORY(1        ORALWORD*
   ORY(2        ORALWORD*
   ORY(3        ORALWORD*
   ORY(4        ORALWORD*
   ORY(5        ORALWORD*
   ORY(6        ORALWORD*
   ORYS         ORALWORD*~
   PATH         ORY4270*~
   PD0          ORY427ES*~
   PLINE        ORY4270*~
   PROV         ORALWORD*~
   QOAA         ORALWORD*~
   QODS         ORALWORD*~
   QOIEN        ORALWORD*~
   QORF         ORALWORD*~
   QPIEN        ORALWORD*~
   QUIT         ORY42701,ORY42702,ORY42703,ORY42704,ORY42705,ORY42706,ORY42707
                ORY42708,ORY4271*~,ORY4272*~,ORY4273*~,ORY4274*~,ORY427ES*~
   R            ORY4271~
   REC          ORY4270*~
   RECNAM       ORY4270*~
   RECNAME      ORY4270~
   REF          ORY42701!,ORY42702!,ORY42703!,ORY42704!,ORY42705!,ORY42706!
                ORY42707!,ORY42708!,ORY4271~,ORY427ES*!~
   REFILLS      ORALWORD~
   REM          ORY4270~
   REMOTE       ORY42701!,ORY42702!,ORY42703!,ORY42704!,ORY42705!,ORY42706!
                ORY42707!,ORY42708!,ORY427ES!~
   RESP         ORY4274*~
   RREF         ORY4271*~,ORY4272~
   RTN          ORY4270~
   S1           ORY4270*~
   SHORT        ORY4270*~,ORY4272~
   SUB          ORY4271*~,ORY4272*~
   SUBNEW       ORY4271*~
   TEXT         ORY4270~,ORY42701*,ORY42702*,ORY42703*,ORY42704*,ORY42705*
                ORY42706*,ORY42707*,ORY42708*,ORY427ES*~
   U            ORALWORD,ORY4270,ORY4271,ORY4272,ORY4273,ORY4274,ORY427ES
   X            ORY4270*~,ORY4271*~,ORY4272*~,ORY4273*,ORY4274*
   Y            ORY4270*~,ORY4271*~,ORY4272~,ORY4273,ORY4274,ORY427ES

Global Variables
   ^OCXS               ORY427ES
   ^OCXS(              ORY4271,ORY427ES*
   ^OR(100             ORALWORD
   ^ORD(101.41         ORALWORD
   ^ORD(101.43         ORALWORD
   ^TMP("OCXRULE"      ORY4270*!,ORY42701*,ORY42702*,ORY42703*,ORY42704*
                       ORY42705*,ORY42706*,ORY42707*,ORY42708*,ORY4272*
                       ORY427ES*!
   ^TMP($J             ORALWORD!
   ^XUSEC("YSCL AUTHORIZED"
                       ORALWORD

Naked Globals
   NONE

Cache Objects
   NONE

Marked Items
   $T(DATA+LINE ORY42701,ORY42702,ORY42703,ORY42704,ORY42705,ORY42706,ORY42707
                ORY42708
   $T(VERSION^OCXOCMP
                ORY427ES

Routine             Invokes:
   ORALWORD     $$DATE^ORU,$$DEFSPLY^ORWDPS1,DAY2QTY^ORWDPS2,MAXREF^ORWDPS2
                ASP^PSS50,CLOZ^PSS50,$$DEA^XUSER,$$CL^YSCLTST2
                $$OVERRIDE^YSCLTST2
   ORY4270      %DT,EN^DIQ1,$$NETNAME^OCXSEND,$$DATE^OCXSENDD,$$FILE^OCXSENDD
                $$FILENAME^OCXSENDD
   ORY42701     ORY42702,DOT^ORY427ES
   ORY42702     ORY42703,DOT^ORY427ES
   ORY42703     ORY42704,DOT^ORY427ES
   ORY42704     ORY42705,DOT^ORY427ES
   ORY42705     ORY42706,DOT^ORY427ES
   ORY42706     ORY42707,DOT^ORY427ES
   ORY42707     ORY42708,DOT^ORY427ES
   ORY42708     DOT^ORY427ES
   ORY4271      %DT,$$NETNAME^OCXSEND,$$DATE^OCXSENDD,$$FIELD^OCXSENDD
                $$FILENAME^OCXSENDD,$$ADDREC^ORY4272,$$LOADWORD^ORY4272
                $$ADDMULT^ORY4273,$$DELMULT^ORY4273,$$DELFLD^ORY4274
                $$EDITFLD^ORY4274
   ORY4272      %DT,DIC,DIE,$$IENS^DILF,$$ROOT^DILFD,DIR,$$FIELD^OCXSENDD
                $$FILEHDR^OCXSENDD,$$EXFLD^ORY4271
   ORY4273      DIR,$$FILEHDR^OCXSENDD,$$FILENAME^OCXSENDD,$$EXFLD^ORY4271
                $$GETREF^ORY4272,DIE^ORY4272
   ORY4274      DIR,$$FILEHDR^OCXSENDD,$$FILENAME^OCXSENDD,$$EXFLD^ORY4271
                $$GETREF^ORY4272,DIE^ORY4272
   ORY427ES     DIR,$$VERSION^OCXOCMP,AUTO^OCXOCMP,VERSION^OCXOCMP
                STATUS^OCXOPOST,$$NETNAME^OCXSEND,$$GETFILE^ORY4270
                $$NOW^ORY4270,$$PAUSE^ORY4270,ORY42701,$$COMPARE^ORY4271
                BMES^XPDUTL

Routine             is Invoked by:
   ^%DT                ORY4270,ORY4271,ORY4272
   ^DIC                ORY4272
   ^DIE                ORY4272
   $$IENS^DILF         ORY4272
   $$ROOT^DILFD        ORY4272
   EN^DIQ1             ORY4270
   ^DIR                ORY4272,ORY4273,ORY4274,ORY427ES
   $$VERSION^OCXOCMP   ORY427ES
   AUTO^OCXOCMP        ORY427ES
   VERSION^OCXOCMP     ORY427ES
   STATUS^OCXOPOST     ORY427ES
   $$NETNAME^OCXSEND   ORY4270,ORY4271,ORY427ES
   $$DATE^OCXSENDD     ORY4270,ORY4271
   $$FIELD^OCXSENDD    ORY4271,ORY4272
   $$FILE^OCXSENDD     ORY4270
   $$FILEHDR^OCXSENDD  ORY4272,ORY4273,ORY4274
   $$FILENAME^OCXSENDD ORY4270,ORY4271,ORY4273,ORY4274
   $$DATE^ORU          ORALWORD
   $$DEFSPLY^ORWDPS1   ORALWORD
   DAY2QTY^ORWDPS2     ORALWORD
   MAXREF^ORWDPS2      ORALWORD
   $$GETFILE^ORY4270   ORY427ES
   $$NOW^ORY4270       ORY427ES
   $$PAUSE^ORY4270     ORY427ES
   ^ORY42701           ORY427ES
   ^ORY42702           ORY42701
   ^ORY42703           ORY42702
   ^ORY42704           ORY42703
   ^ORY42705           ORY42704
   ^ORY42706           ORY42705
   ^ORY42707           ORY42706
   ^ORY42708           ORY42707
   $$COMPARE^ORY4271   ORY427ES
   $$EXFLD^ORY4271     ORY4272,ORY4273,ORY4274
   $$ADDREC^ORY4272    ORY4271
   $$GETREF^ORY4272    ORY4273,ORY4274
   $$LOADWORD^ORY4272  ORY4271
   DIE^ORY4272         ORY4273,ORY4274
   $$ADDMULT^ORY4273   ORY4271
   $$DELMULT^ORY4273   ORY4271
   $$DELFLD^ORY4274    ORY4271
   $$EDITFLD^ORY4274   ORY4271
   DOT^ORY427ES        ORY42701,ORY42702,ORY42703,ORY42704,ORY42705,ORY42706
                       ORY42707,ORY42708
   ASP^PSS50           ORALWORD
   CLOZ^PSS50          ORALWORD
   BMES^XPDUTL         ORY427ES
   $$DEA^XUSER         ORALWORD
   $$CL^YSCLTST2       ORALWORD
   $$OVERRIDE^YSCLTST2 ORALWORD

*****   END   *****


--- END ---